Olá, não estou acertando colocar o App.Path nessa linha para o projeto achar o MDB no diretório do projeto

 

Con.Open " Provider = Microsoft.Jet.OLEDB.4.0; Data Source =  c:Cadastro.mdb"

 

Flecha

Já descobri minha sub do form load ficou assim:

 

Private Sub Form_Load()
'Instanciando os objetos de acesso aos dados
Set Con = New ADODB.Connection
Set Rs = New ADODB.Recordset
'Provedor de acesso ao Banco de dados
'Con.Open " Provider = Microsoft.Jet.OLEDB.4.0; Data Source =  c:Cadastro.mdb"
Con.Open " Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & App.Path & "Cadastro.mdb"
'Abrindo uma tabela do banco de dados Cadastro
Rs.Open " SELECT COUNT (*) FROM Pessoal", Con, adOpenKeyset, adLockReadOnly
'Exibindo a quantidade de registros da tabela
MsgBox Rs.Fields(0)

 

'Fechando a tabela juntamente com as conexões
Rs.Close
Con.Close

Set Rs = Nothing
Set Con = Nothing

End Sub

Como faço agora para colocar os registros no form ? alguém pode me ajudar ?

 

Flecha