Dim dbs As DAO.Database
Dim nSQL As String
Path = DLookup("[ArquivoConectado]", "[Conexão]")' Caminho parametrizado em uma tabela
Set dbs = DBEngine.Workspaces(0).OpenDatabase(Path, False, False, ";PWD = 123")
'Armazenando os registros na variável nSQL:
nSQL = "SELECT CodigoDoMaterial,DescricaoDoMaterial FROM TblProduto IN" & " '" & Path & "'" & "ORDER BY CodigoDoMaterial;"
'Populando a ComboBox através da variável nSQL:
TxtProduto.RowSource = nSQL
O estranho é que diz senha inexistente
alguem pode ajudar????