寻找VB高手，帮忙写个VB6.0+SQL登入框的代码

Question

寻找VB高手，帮忙写个VB6.0+SQL登入框的代码。
数据库名称为finance，用户表名称为users，用户名字段'username',密码字段为'password'。

Answer 1

Option Explicit
Dim micount As IntegerPrivate Sub Command1_Click()
    Dim txtsql As String
    Dim mrc As ADODB.Recordset
    Dim msgtext As String
    
    Dim Cnn As New ADODB.Connection
    Cnn.ConnectionString = "PROVIDER=MSDASQL;DRIVER={SQL Server};SERVER=192.168.1.100;DATABASE=finance;UID=sa;PWD="
    If Cnn.State <> ADODB.ObjectStateEnum.adStateClosed Then Cnn.Close
    Cnn.Open
    
    On Error GoTo error0
    If Trim(txtUserName.Text = "") Then
        MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation
        txtUserName.SetFocus
    Else
        txtsql = "select * from users where username='" & txtUserName.Text & "'"
        Set mrc = Cnn.Execute(txtsql)
        If mrc.EOF = True Then
            MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation
            txtUserName.SetFocus
        Else
            If Trim(mrc.Fields("password")) = Trim(txtpassword.Text) Then
                mrc.Close
                Me.Hide
                Form1.Show
            Else
                MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation
                txtpassword.SetFocus
                txtpassword.Text = ""
            End If
        End If
    End If
    micount = micount + 1
    If micount = 3 Then
        Me.Hide
    End If
    
    Exit Sub
error0:
    MsgBox "与服务器连接失败，请稍后再试！"
    Resume Next
End Sub估计再详细,没人愿意写了