Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Dim connstr As String
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb;Persist Security Info=False"
ql = "select * from table where uesrname='" & Text1.Text & "'"
conn.CursorLocation = adUseClient
conn.connectionstring = connstr
conn.Open
rs.Open sql, conn, adOpenStatic, adLockOptimistic, 1
'Set rs = conn.Execute(sql)
'rs.Open sql, conn, adOpenStatic, adLockOptimistic
If rs.RecordCount = 0 Then
MsgBox "用户不存在"
rs.Close
conn.Close
Exit Sub
End If
If Text2.Text <> rs("password") Then
MsgBox "密码错误"
rs.Close
conn.Close
Else
rs.Close
conn.Close
from2.Show
Unload Me
End If
      
End Sub

Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim connectionstring As String
connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "D:\glxt.mdb;Persist Security Info=False"

End Sub

rs.Open sql, conn, adOpenStatic, adLockOptimistic, 1   但是老是这条这不对 说数据库引擎找不到表或查询‘table'确定他是否存在

我加了~~但是还是出现错误~~~读不到数据库    我用的是VB6.0和Access2003  在引用-部件里我用的是Mictosoft ActiveX Data 2.6 Library和Mictosoft DAO 3.6 Object Library














o

谢谢可以了`~

还想请教你一个问题~~就是我做的这个程序~可以把QQ程序添加到设为内置不~~