```Private Sub Form_Load()
Dim conn As New ADODB.connection
Dim connectionstring As String
connectionstring = "provider=sqloledb.1;user id=sa;password=123456;data source=(local);marketing systemtest"
conn.Open connectionstring
End Sub
Private Sub Command1_Click()
Dim sql As String
Dim conn As New ADODB.connection
Dim rs_login As New ADODB.Recordset
If Trim(Text1.Text) = "" Then
MsgBox "用户名不能为空!", vbOKOnly + vbExclamation, "错误"
Text1.SetFocus
Else
sql = "select * from test where test_info ='" & Text1.Text & "'"
If rs_login.EOF = True Then
MsgBox "用户不存在,请重新输入!", vbOKOnly + vbExclamation, "错误"
Text1 = ""
Text1.SetFocus
Else
If Trim(rs_login.fields(1)) = Trim(Text2) Then
rs_login.Close
Unload Me
Form2.Show
Else
MsgBox "密码错误!", vbOKOnly + vbExclamation, "错误"
Text2.SetFocus
End If
End If
End If
End Sub