查询的结果不显示 急

Option Compare Database
Dim AddressBook As ADODB.Connection
Dim Customer As ADODB.Recordset

Private Sub Form_Load()  '初始化设置
Dim i As Integer
Set AddressBook = CurrentProject.Connection
Set Customer = New ADODB.Recordset
Customer.LockType = adLockOptimistic
Customer.Open "工友资料表", AddressBook, , , adCmdTable
Text15.Value = ""
Combo13.Value = ""
Customer.MoveFirst
For i = 1 To List19.ListCount - 1
List19.RemoveItem 1
Next i

End Sub
Private Sub Command8_Click()
Combo13.RowSourceType = "值列表"

If IsNull(Combo13.Value) Then
MsgBox "尚未选择查找方式。", , "出错信息"
Exit Sub
End If

If IsNull(Text15.Value) Or Text15.Value = "" Then
MsgBox "请给出关键字！", , "出错信息"
Exit Sub
End If

If Combo13.Value = "按性别查找" Then   '按性别查找
Customer.MoveFirst
Do While Not Customer.EOF
If Customer!性别 = Val(Text13.Value) Then
Label19.AddItem Customer!工友ID & "           " & Customer!姓名 & "               " & Customer!性别 & "                 " & Customer!技能 & "                " & Customer!技能证书 & "              " & Customer!婚否 & "              " & Customer!电话 & "              " & Customer!备注
Exit Do
End If
Customer.MoveNext
Loop
If Customer.EOF Then
MsgBox "该工友不存在！", , "查询提示"
End If
End If

If Combo13.Value = "按婚否查找" Then   '按婚否查找
Customer.MoveFirst
Do While Not Customer.EOF
If Customer!婚否 = Text13.Value Then
Label19.AddItem Customer!工友ID & "           " & Customer!姓名 & "               " & Customer!性别 & "                 " & Customer!技能 & "                " & Customer!技能证书 & "              " & Customer!婚否 & "              " & Customer!电话 & "              " & Customer!备注
End If
Customer.MoveNext
Loop
If Customer.EOF And List19.Value = "" Then
MsgBox "无对应结果。", , "查询提示"
End If
End If

If Combo13.Value = "按技能查找" Then   '按技能查找
Customer.MoveFirst
Do While Not Customer.EOF
If Customer!年龄 = Text13.Value Then
Label19.AddItem Customer!工友ID & "           " & Customer!姓名 & "               " & Customer!性别 & "                 " & Customer!技能 & "                " & Customer!技能证书 & "              " & Customer!婚否 & "              " & Customer!电话 & "              " & Customer!备注
End If
Customer.MoveNext
Loop
If Customer.EOF And List19.Value = "" Then
MsgBox "无对应结果。", , "查询提示"
End If
End If

End Sub