Olá sou novo em programar com ACCESS e estou tendo um problema com o código abaixo, estou tentando criar uma conexão com meu próprio banco de dados e usando o recordset para enumerar dados de uma tabela porém sempre que eu executo o programa aparece o seguinte
erro: Uso inválido da palavra chave NEW. Tentei ajeitar retirando essa palavra e colocando apenas o AS e com isso apareceu o erro 13: tipos inválidos, gostaria da ajuda de vocês, desde já agradeço:
Sub conecta_atual()
Dim minhaconexao As New Connection
Set minhaconexao = CurrentProject.Connection
Dim instrucao As String
instrucao = "SELECT * FROM droga"
Dim meurecordset As New Recordset
meurecordset.Open instrucao, minhaconexao
Do Until meurecordset.EOF
Debug.Print meurecordset!nomeDroga
meurecordset.MoveNext
Loop
meurecordset.Close
Set meurecordset = Nothing
minhaconexao.Close
Set minhaconexao = Nothing
End Sub
