问题出在这里:
cmd.CommandText = "Select * From {医师资料} Where [姓名] = '" & UserName & "' "
你的医生资料表,似乎没有姓名列,只有用户名列。