Private Sub Command1_Click() Set mycon = New ADODB.Connection mycon.Open "dsn=my", "sa" Set myres2 = New ADODB.Recordset myres2.Open "select * from user where " &用户名& " = "' & Text1.Text & " and " &密码& " = '" & Text2.Text & "'" , mycon, adOpenDynamic, adLockOptimistic If myres2.BOF And myres1.EOF Then Form2.Hide Form1.Show Else Dim res As Integer res = MsgBox("用户名或密码错误", vbExclamation + vb重新输入Cancel + vbDefaultButton2) Text1.Text = " " Text2.Text = " " End If End Sub

这是一段使用 VB6 编写的代码，用于连接数据库并进行用户身份验证。具体来说，它首先创建了一个 ADODB.Connection 对象，并使用该对象的 Open 方法连接到名为“my”的数据源，用户名为“sa”。接下来，它创建了一个 ADODB.Recordset 对象，并使用该对象的 Open 方法执行一个 SQL 查询，查询条件是“用户名”和“密码”分别等于用户在文本框中输入的值。如果查询结果为空，则隐藏 Form2 窗体并显示 Form1 窗体；否则，弹出一个提示框，提示用户名或密码错误，并清空文本框中的值。