VB新手提问，，请大家帮不帮忙

Dim DbStr As String

Private Sub Check1_Click(Index As Integer)
If Check1(0).Value = 1 Then
Combo1.Enabled = True
Else: Combo1.Enabled = False
Combo1.Text = ""
End If
If Check1(1).Value = 1 Then
Combo2.Enabled = True
Else:
Combo2.Enabled = False
Combo2.Text = ""
End If
If Check1(2).Value = 1 Then
Combo3.Enabled = True
Else: Combo3.Enabled = False
Combo3.Text = ""
End If
End Sub

Private Sub Command1_Click()
Dim TempStr As String
TempStr = DbStr
If Check1(0).Value = 1 And Not IsNull(Combo1.Text) Then
DbStr = DbStr + "and[性别]=" + Combo1.Text + ""
End If
If Check1(1).Value = 1 And Not IsNull(Combo2.Text) Then
DbStr = DbStr + "and[政治面貌]=" + Combo2.Text + ""
End If
If Check1(2).Value = 1 And Not IsNull(Combo3.Text) Then
DbStr = DbStr + "and[特长]=" + Combo3.Text + ""
End If
Data1.RecordSource = DbStr
List1.Clear
DbStr = TempStr
Data1.Refresh
If Data1.Recordset.BOF Or Data1.Recordset.EOF Then
Result = MsgBox("数据库空！", 48, "提示")
Exit Sub
End If
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
For I = 1 To Data1.Recordset.RecordCount
List1.AddItem Data1.Record