Private Sub Command1_Click()
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
strsql = "select * From 登录表 Where 用户名= '" & Text1.Text & "'" & "and 密码=" & Text2.Text & "'"
rs.Open strsql, cn
If rs.EOF Then
MsgBox "用户名或密码错了"
Else
From5.Show
Unload Me
End If

End Sub

Private Sub Command2_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "用户名和密码不能为空"
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
strl = "select * Form 登录表 Where 用户名='" & Text1.Text & "'"
rs.Open strl, cn, 1, 3
rs.AddNew
rs("用户名") = Text1.Text
rs("密码") = Text2.Text
rs.Update
MsgBox "注册成功"
End If
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
 Dim cn As New ADODB.Connection
 cn.ConnectionString = "Provider=Micosoft OLE DB Provider for SQL Server;Data Source=E:\SQL\DB\shop_date.mdf"
 cn.Open
End Sub
这是源码，但是运行的时候老是说“未找到 提供程序。该程序为正确安装”请问我该怎么改？

Provider=Micosoft OLE DB Provider for SQL Server;Data Source=E:\SQL\DB\shop_date.mdf,这句什么东西？
连接sql不是这么写的，连接access也不是这么写的。
而且rs.open应该这样设置rs.open"...",cn,2,3

[ 本帖最后由 vbvcr51 于 2014-4-14 14:04 编辑 ]

先在工程里引用对象

Dim Rs As New ADODB.Recordset
Dim Cn As New ADODB.Connection

Private Sub Form_Load()
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=E:\SQL\DB\shop_date.mdb;Persist Security Info=False"
Rs.CursorLocation = adUseClient
End Sub

Private Sub Command1_Click()
strsql = "select * From 登录表 Where 用户名= '" & Text1.Text & "' and 密码= '" & Text2.Text & "'"
Rs.Open strsql, cn,1,3
If Rs.EOF Then
    MsgBox "用户名或密码错了"
Else
    From5.Show
    Unload Me
End If
Rs.Close
End Sub

Private Sub Command2_Click()
If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Then    '去空格，避免输入空格误判
    MsgBox "用户名和密码不能为空"
    Exit sub   
Else
    strl = "select * Form 登录表 Where 用户名='" & Trim(Text1.Text) & "'"
    Rs.Open strl, cn, 1, 3
    Rs.AddNew
    Rs("用户名") = Trim(Text1.Text)
    Rs("密码") = Trim(Text2.Text)
    Rs.Update
    MsgBox "注册成功"
    Rs.Close
End If
End Sub

Private Sub Command3_Click()
End
End Sub

[ 本帖最后由 owenlu1981 于 2014-4-14 19:55 编辑 ]