vb连接sqlsever数据库报错找不到对象

Dim ADODB As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Driver={sql server};server=.;uid=sa;pwd=123;database=AIS20180724143002"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select from t_BOSKHBFB where FBillNo='" & Trim(Combo1.Text) & "' And FBase='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("请重新登录", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close

推荐答案 2018-07-29

你这个错误在出现在哪个行？里面有很多对象，不指定的话看不错什么错误。
请检查一下看看窗体上是不是有一个组合框(COMBO1)和文本框（text1）?
If rs.EOF = True And rs.BOF Then 你这个条件里rs.EOF = True就可以了。没必要写两个。不过这个不影响你程序结果。追问

没有窗体，所以rs.Open "select from t_BOSKHBFB where FBillNo='" & Trim(Combo1.Text) & "' And FBase='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText这句话该怎么改？

追答

没有窗体？？怎么可能，你这个必须在一个叫FORM1窗体里吧？？

找不到

Combo1

Text1你把代码写在哪儿了？这应写在窗体的按钮的代码