Code:
intRecNum = rs.RecordCount - 1
For intCnt = 0 To intRecNum
strComVal = rs!clnt_LastName & "," & rs!clnt_FirstName
cbxSearch.AddItem (strComVal)
rs.MoveNext
Next
intRecNum = rs.RecordCount - 1
For intCnt = 0 To intRecNum
strComVal = rs!clnt_LastName & "," & rs!clnt_FirstName
cbxSearch.AddItem (strComVal)
rs.MoveNext
Next
Do Until rs.EOF
strComVal = rs!clnt_LastName
cbxSearch.AddItem (strComVal)
rs.MoveNext
Loop
Dim w As String w = TimeCon(strTempDate)
Private Function TimeCon(ByVal strTempDate As String) Dim strDate As String
Leave a comment: