Obigado pessoal consegui puxar o busca.avi mas agora esta dando este erro
"o comando texto nao foi definido para o objero de comando"
e o debug é nesta linha
rstObj.Open strSQL, cnxnObj, 1, 1, 1
esta é a conexao no modulo
Option Explicit
'função API para dar uma pausa na aplicação
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'constantes usadas para nomear os controles
Public Const Cap1 = "Controles Grids no modo Não Vinculado com Busca"
Public Const Cap2 = "Digite Texto para Busca >>"
Public Const Cap3 = "Procurar"
Public Const Cap4 = "Sair"
Public Const Cap41 = "Parar"
Public Const Cap5 = "Empregados"
Public Const Cap6 = "Controle MSFlex Grid"
Public Const Cap7 = "Controle Data Grid "
Public Const Cap8 = "Busca por Nome"
Public Const Cap9 = "Busca por Setor"
Public Const Cap10 = "Busca por Contato"
'Variavel para o banco de dados
Public cnxnObj As Object
Public rstObj As Object
Public strSQL As String
Public Sub AbrirBDAccess()
Dim ConectaAccess As String
Dim strArquivo As String
Dim strLocal As String
strArquivo = "Busca.mdb"
strLocal = App.Path
Set cnxnObj = CreateObject("ADODB.Connection")
ConectaAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strLocal & strArquivo
cnxnObj.Open ConectaAccess
End Sub
Public Sub AbrirRecordSetAccess(strSQL As String)
Set rstObj = CreateObject("ADODB.Recordset")
rstObj.Open strSQL, cnxnObj, 1, 1, 1
End Sub
