VB实时错误
    Private Sub Ntscx_Click()
Formtscx.Show
  
End Sub

我做的是图书管理系统  主窗体的下拉菜单中有    Ntscx(库存图书查询) Ndzcx(读者信息查询) Njccx(借出图书查询) 等等
   我已建立了  主程序  菜单窗体   代码：
Private Sub Ntscx_Click()
  Formtscx.Show
  End Sub

库存图书查询   代码：Private Sub Command1_Click()
  Dim gjzxz, gjz As String
  gjzxz = Combo1.Text
  gjz = Text1.Text
  If gjzxz = "" Or gjz = "" Then
     Adodc1.ConnectionString = "DSN=tsgl"
      = adCmdTable
     Adodc1.RecordSource = "tsbm"
     MsgBox "应选择查询条件", 64, "提示"
  Else
     If gjzxz = "图书编号" Then
       Adodc1.Recordset.Filter = "tsbh" '= '" & text1.Text & "'"
     ElseIf gjzxz = "图书名称" Then
       Adodc1.Recordset.Filter = "tsmc" '= '" & text1.Text & "'"
     ElseIf gjzxz = "图书类别" Then
       Adodc1.Recordset.Filter = "tslb" '= '" & text1.Text & "'"
     ElseIf gjzxz = "作者姓名" Then
       Adodc1.Recordset.Filter = "zzxm" '= '" & text1.Text & "'"
     Else
       Adodc1.Recordset.Filter = "cbs" '= '" & text1.Text & "'"
     End If
  End If
  Combo1.Text = ""
  Text1.Text = ""
End Sub

Private Sub Command2_Click()
Unload Formtscx

End Sub

运行 程序主界面中的库存图书查询时  显示：”实时错误‘424’：要求对象“

运行库存图书查询  窗体时    点击”查询“时 显示：”实时错误‘3001’ 参数类型不正确 或 不再可以接受的范围之内 或 与其它参数冲突“
 我刚学VB6.0  遇到很多问题   请大家多多帮忙