Jayme
|
SÃO PAULO SP - BRASIL
|
|
Postada em 02/02/2005 09:03 hs
Tente isto: Dim a, b As String a = "10/01" b = "20/03" V_Sql = "" V_Sql = "SELECT * FROM cadfun" V_Sql = V_Sql & " WHERE" V_Sql = V_Sql & " Mid(DataNasc, 4, 2) " & " >= '" & Mid(a, 4, 2) & "'" V_Sql = V_Sql & " AND" V_Sql = V_Sql & " Mid(DataNasc, 4, 2) " & " <= '" & Mid(b, 4, 2) & "'" RS_CADFUN.Open V_Sql, DB_NOVO, adOpenStatic, adLockReadOnly
Jayme
|
|
|