路过的大虾们，帮帮小弟我吧，一个VB+SQL的问题

[jyyzhongwjg]

数据库学籍管理里有三张表：
表XS包括字段： 学号，姓名，专业，性别，出生日期，总学分，备注
表XSKC包括字段：学号，姓名，课程名，成绩，总学分，专业
表KC包括字段： 专业，课程名

窗体form1里有个Datagrid控件，编写控件双击事件如下，弹出窗体showstukc,窗体showstukc上有两个控件，ADODC和Datagrid,名字分别是stukcado,studg。
我想实现功能是，双击form1中的datagrid控件，弹出窗体showstukc，弹出窗体中显示查询信息，代码如下：

Private Sub DataGrid1_DblClick()
showstukc.stukcado.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=学籍管理" 'ADODC中生成字符串粘在引号中间
showstukc.stukcado.RecordSource = "select XS.学号,XS.姓名,KC.课程名,XSKC.成绩,KC.专业 from XS,XSKC,KC where XSKC.课程名=KC.课程名 and XSKC.专业=KC.专业 and XS.学号='" + stuado.Recordset.Fields("学号") + "'"
showstukc.stukcado.Refresh
Set showstukc.studg.DataSource = showstukc.stukcado
showstukc.Show
End Sub


我运行不正确，VB显示实时错误424，要求对象，可是我不知道哪里出现问题了，各位大虾帮帮我吧，现在都急得我这么晚了睡不着教呀~~

[jyyzhongwjg]

还真是二楼说的那样啊，确实是控件名不一致，我改了一下，成了~~

[jyyzhongwjg]

不过现在又有问题了，麻烦你帮忙看一下吧，谢谢了0.0
Dim sqlstr As String
Public Sub makesqlstr()
sqlstr = ""
If Trim(test2) <> "" Then
sqlstr = "and XS.学号 like '%" + Trim(Text2.Text) + "%'"
End If
If Trim(Text1) <> "" Then
sqlstr = sqlstr + "and XS.姓名 like'%" + Trim(Text1.Text) + "%'"
End If
End Sub


Private Sub Command1_Click()
makesqlstr
stuado.RecordSource = "select XS.学号,XS.姓名,XS.专业,CXB.性别名,XS.出生日期,XS.备注 from XS,CXB where XS.性别=CXB.性别 " & sqlstr
stuado.Refresh
End Sub

为什么现在姓名的查询行了，学号的查询不起作用呢，帮忙看看吧~~

[ACMAIN_CHM]

哪一句出错？

[咸清]

单步跟一下，报的错是说你缺对象。你就要看看你的代码里缺哪个对象啊！跟SQL没什么关系~~
你可能把某个对象名写错了，或者是没有引用正确的类库，直接把代码粘贴过来。

[咸清]

.net 下不是很熟
Set showstukc.studg.DataSource = showstukc.stukcado
对吗？