代码如下
Dim rs As New ADODB.Recordset
Dim sql As String
Dim conn As ADODB.Connection
conn = New ADODB.Connection
sql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB小程序\幼儿园管理系统\信息.mdb"
conn.Open(sql)
Form5.TextBox22.Text = TextBox1.Text
Me.Hide()
Form5.Show()
rs = New ADODB.Recordset
sql = "select * from 幼儿信息 where 编号='" + Form5.TextBox22.Text + "'" '
rs = conn.Execute(sql)
我的查询页面和显示数据页面是两个form,我想要的效果是在前面的查询页面输入编号或姓名,如果有数据的话就会打开下一个form并显示出该数据,求解怎么写代码?上面的说是最后一句标准表达式中数据类型不匹配。怎么解决?
急!!!求救!!!谢谢


------解决方案--------------------
在第二个窗体里加入DataGridView1,设置Modefiers为Public,在form1里查询后将结果显示在form2的DataGridView1中,
Dim cnStr As String = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=j:\STUDENT.MDB"
Dim cn As OleDbConnection = New OleDbConnection(cnStr)
Dim da As OleDbDataAdapter = New OleDbDataAdapter("select * from 考生 where 姓名='" + TextBox1.Text + "'", cn)
Dim ds As New DataSet
da.Fill(ds, "考生") ‘将查询的数据填充到ds中
Dim f As Form2 = New Form2()
f.DataGridView1.DataSource = ds.Tables(0).DefaultView
f.Show()