登录窗口如何连接到数据库access

Question

引用ado对象
Set adoconn = New ADODB.Connection
adoconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\exam.mdb"
..

Answer 1

dim sql as string
Set adoconn = New ADODB.Connection
set rs=new adodb.connection
adoconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\exam.mdb"dql="select name ,password from ***"
rs.open sql,cnn,,,
if rs.eof and rs.bof then
msgbox "记录为空"____用户不存在了
end if

Answer 2

需要在VB的引用中引用Microsoft ADO library 2.5才能使用
New ADODB.Connection你或者可以在部件中引用Microsoft ADO!!