asked on
Dim rsData As ADODB.Recordset
Dim sSQL As String
'Create the connection string
sConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & databasetest & ";" & _
"Jet OLEDB:Database Password=test;"
'Create the SQL Statement
sSQL = "SELECT * FROM EMPLEADOS;"
Set rsData = New ADODB.Recordset
rsData.Open sSQL, sConnect, adOpenFowardOnly, _
adLockReadOnly, adCmdText
Do While rsData.EOF = False
'code need here
rsData.MoveNext
Loop
rsData.Close
Set rsData = Nothing