哪位高手帮忙看一下啊，我这里哪里错了

Private Sub Command1_Click()

Set rs = New ADODB.Recordset

rs.Open "select * from index where uname='" & Text1.Text & "'", strconnect
If Not rs.EOF Then
  If rs.Field("id") <> Text2.Text Then
  Print "密码错误"
  
  Set rs = Nothing
  Text1.Text = ""
  Text2.Text = ""
  Else
 Form1.Show
  
  End If

Else
Print "用户名不存在"
Text1.Text = ""
Text2.Text = ""



End If
End Sub
Private Sub Form_Load()
Set strconnect = New ADODB.Connection
  strconnect.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False"
 strconnect.Open
End Sub

补充：VB ,  数据库(包含打印，安装，报表)