如何用vb从数据库中提取数据，并对其进行判断？

Question

如同一个登录窗口

Answer 1

Private Sub Command1_Click()
    Dim userName As String
    Dim userPass As String
    
    Dim CN As New ADODB.Connection
    Dim Rs As New ADODB.Recordset
  
    userName = Trim(text1.Text)
    userPass = Trim(text2.Text)
    
    Set CN = CreateObject("adodb.connection")
    CN.open "provider=microsoft.jet.oledb.4.0;data source=" & App.path & "\system.mdb"
    
    
    sql = "select * from member where username='" & userName & "' and userpass='" & userPass & "'"
    
    Rs.CursorLocation = adUseClient
    Rs.open sql, CN, adOpenDynamic, adLockReadOnly
    
    If Rs.RecordCount > 0 Then
        MsgBox "进入系统", vbOKOnly + vbInformation, "系统消息"
    Else
        MsgBox "对不起，登录错误"
    End IfEnd Sub

Answer 2

Dim cnADO As ADODB.Connection
Dim rsADO As ADODB.RecordsetPrivate Sub cmdLogin_Click()
    Dim strSQL As String
    
    Set cnADO = New ADODB.Connection
    Set rsADO = New ADODB.Recordset
    
    cnADO.CursorLocation = adUseClient
    cnADO.Open ConnectionString
    
    strSQL = "Select * From LoginUsers where UserID = '" & Trim(txtUserID.Text) & "' And Password = '" & Trim(txtPassword.Text) & "'"
    
    rsADO.Open strSQL, cnADO, adOpenStatic, adLockReadOnly
    
    If rsADO.EOF Then
        MsgBox "你沒有權限使用本系統!", vbCritical, "提示"
        End
    End If
End Sub