Código: Selecionar todos
Dim i As Integer
Moderador: Rafael Monteiro
Código: Selecionar todos
Dim i As Integer
Código: Selecionar todos
Sub Conectar()
Provedor = "Microsoft.JET.OLEDB.4.0;DATA SOURCE="
CaminhoArquivo = ThisWorkbook.Path & "\Banco.mdb"
'Sql = "SELECT * FROM " & Tabela
cn.Provider = Provedor & CaminhoArquivo
cn.Open
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.PageSize = 42
rs.Open sql, cn, adOpenKeyset, adLockOptimistic
End Sub