Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cn = New ADODB.Connection
Set rst = New ADODB.Recordset
Dim strsql As String
cn.Open concn
strsql = "select userid,password from 管理员信息表 where userid='" & Text1.Text & "' and password='" & Text2.Text & "'"
Set rst = cn.Execute(strsql)
If rst.EOF = True And rst.BOF = Ture Then
MsgBox "密码错误或者用户名不存在!"
denglu.Show
Else
Unload Me
caidan.Show vbModal
End If
rst.Close
cn.Close
End Sub

Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
adodc1.ConnectionString = concn
adodc1.CommandType = db1
cn.Open concn
End Sub

不想看,哪里有问题,请说.

就是找不到数据源。。。。。哎。。。。。。这个到底是怎么连接数据的吗？？？？？？？老火得很

你的connection还没有配置数据源..当然找不到数据源了.

怎么配置？？？？？请高手指点。。。

Set conn = New ADODB.Connection
conn.Open "provider=Microsoft.Jet.OLEDB.4.0;" & "Data source=" + App.Path + "\数据库名.mdb;" & "persist security info=false"

你加这个看看