Dim UserName As String = Forms("登录窗口").Controls("txt1").Value

Dim dr As DataRow

Dim dt As DataTable

Dim name As String

Dim cmd As New SQLCommand

cmd.C

If UserName =" " Then

    Messagebox.show("请输入用户名!","提 示",MessageBoxButtons.OK,MessageBoxIcon.Information)  

End If

cmd.CommandText = "Select *  From {医师资料} Where [姓名] = &UserName& "

dt = cmd.ExecuteReader

dr = dt.DataRows(0)

    If Forms("登录窗口").Controls("txt2").Value = dr("密码")  Then

       name = UserName

         DataTables("FMFM量表分值转换表").load

        DataTables("精细运动能力测试量表").load

        DataTables("脑瘫").load

    Forms("登录窗口").Close

Else
    Messagebox.show("密码错误!","提 示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

一执行 就提示说是未将对象引用设置到对象的实例，求解惑

我记得以前C#连接数据库都要有一个sql连接，这里不要的么。

还有一个，我看好多代码里都有cmd.c 我想问下这个 c 前面是怎么定义的呢。谢谢！

cmd.CommandText = "Select * From {医师资料} Where [姓名] = &UserName& "

应该是：

cmd.CommandText = "Select * From {医师资料} Where [姓名] = \'" & UserName & "\'"

建议看看：

http://www.foxtable.com/help/topics/1284.htm

http://www.foxtable.com/help/topics/1485.htm

如果第一句有问题：

Dim UserName As String = Forms("登录窗口").Controls("txt1").Value

看看窗口名和控件名是否正确。

foxtable可以自动生成这些代码的，避免输入错误：

http://www.foxtable.com/help/topics/1525.htm

如果搞不定，就传项目上来。