我的VB程序在连接数据库的这总是不对，说是缺少对象，
麻烦大家看一下，小弟不尽感激！
.Provider = "SQLOLEDB.1"
.ConnectionString = "User ID=sa;Password=sa;Initial Catalog=GaoSuGL;Data Source="
.Open
End With End Sub Private Sub txtUserName_Click()
str = "select * from UserLogin where UserId= '" & Text & "' "
Adodc1.RecordSource = str
Adodc1.Refresh
rst.Open
End Sub