荧光套装:我想用access创建一个自己部门的数据库,用vb如何连接,制作表单??

Public rs As New adodb.Recordset '过程变量
Public cn As New adodb.Connection '过程变量
Public Sub connDB()

Set cn = New adodb.Connection

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Public rs As New ADODB.Recordset
Public cn As New ADODB.Connection
Public Sub connDB()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\存数据的文件夹\Access的名.mdb;Persist Security Info=False"
cn.Open
Set rs = New ADODB.Recordset
rs.Open "select * from 数据库名", cn, adOpenDynamic, adLockOptimistic
End Sub

Private Sub Command1_Click()
Dim a As Integer, b As String
Do While Not rs.EOF
a = rs("用户帐号")
b = rs("用户密码")
If a = Text1 Then
If b = Text2 Then
Unload Me
Form2.Show
Exit Sub
Else
MsgBox "密码错误!"
Exit Sub
End If
End If
rs.MoveNext
Loop
MsgBox "用户名错误"
End Sub
记得要在"工程"--->"引用"里选中Micosoft ActiveX Data Objects 2.1 Library 还有它自动选的你不要管
窗体2你就按数据库设计 再调用一次数据库 (关键是路径要对)
over!

sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库名称.mdb"

Dim adoConn As ADODB.Connection
Dim adoRS As ADODB.Recordset
Dim SqlQuery As String

Set adoConn = New ADODB.Connection
adoConn.Open sConnString

Set adoRS = New ADODB.Recordset
sqlquery="select * from ...."
set adoRS=adoConn.Execute (SqlQuery)

....

第二个问题不是很懂，留待高手解答