大家看看这段代码出什么错了！

Question

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox1.Text = "" Then
            Response.Write("不能为空!")
            Exit Sub
        Else
            Dim myread As OleDb.OleDbDataReader
            OleDbConnection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=E:\Downloads\vb2003\源程序\第七章  人员管理系统开发\人员管理系统\db1.mdb"
            OleDbConnection1.Open()
            nsql = "select * from dep where deptno='" & Trim(TextBox1.Text) & "'"
            mycmd.Connection = OleDbConnection1
            mycmd.CommandText() = nsql
            myread = mycmd.ExecuteReader
            myread.Read()
            Dim yx As String = myread.Item(0)
            If yx = TextBox1.Text Then
                TextBox2.Text = myread.Item(1)
                TextBox3.Text = myread.Item(2)
                TextBox4.Text = myread.Item(3)
            Else
                Response.Write("输入的deptno有误")
                Exit Sub
            End If
        End If
    End Sub
我要在输入textbox1.text中输入一个内容来查询显示text2,text3.text4内容

Answer 1

nsql = "select * from dep where deptno='" & Trim(TextBox1.Text) & "'"
sql语句对吗？
response.write nsql
出来试试，在access的查询里能不能用