"Select * From 表 Where 用户名='" & text1.text & "' And 密码='" & textbox1.text & "'"

On Error Resume Next
Dim zh As String
zh = "select * from zhuce where userz = " & """" & Text1.Text & """"
ado1.RecordSource = zh
ado1.Refresh

自己看看吧....

楼上的...字符串在数据库中是单引用的',,,使用..你使用的SQL语句...太多双引号了吧..

添加引用ado2.5
dim rst as adodb.recordset
dim conn as adodb.connection

set conn = createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OleDb.4.0;Data Source=D:\demo.mdb"

set rst = createobject("adodb.recordset")
rst.cursorLocation = aduseClient
rst.open "Select * From 表 Where 用户名='" & text1.text & "' And 密码='" & textbox1.text & "'" ,Conn,,
msgbox rst.recordCount
rst.close
conn.close

谢谢!