rs_login.Open "旁敏启select * from user_info where user_id='" & Text1.Text & "'and user_pwd='" & Text2.Text & "'", conn_info, adOpenDynamic, adLockOptimistic
If rs_login.RecordCount = 1 Then
'成功
else
'失运如败拿缓
end if
conn_info是 ADODB.Connection
rs_login 是 ADODB.Recordset