Private Sub Label5_Click()
Dim pegang3 As String
If Option2.Value = True Then
 
 
Set General = db.OpenRecordset("select * from GeneralLog WHERE DATE LIKE '*" & Text2.Text & "*'")
 
  Text2 = Combo2 & "/" & Combo1 & "/" & Combo3
pegang3 = Combo2 & "/" & Combo1 & "/" & Combo3
 
 If Text2 <> "" Then
 
 
 
        'Text2 = rsGeneral.Fields!Date
 
         Text2.Text = General.RecordCount
 
         frmadmin.txtDate = pegang3
 
        If General.RecordCount <> 0 Then
            Do While Not General.EOF
                If General.Fields!Date = Text2.Text Then
                Call loadLV
                 End If
 
                General.MoveNext
            Loop
 
 
        Else
            MsgBox ("Record 0")
        End If
    End If
End If
 
 
End Sub