Estou tentando vincular uma tabela Access em VB6 via código utilizando ADOX só que tanto minha tabela destino quanto a origem possuem senha.
Não estou sabendo como passar a senha da tabela origem.
Segue o código que estou utilizando:
Option Explicit
Dim cn As ADODB.Connection
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Projetos em Andamento\RenatoSolos\Solos.mdb;Jet OLEDB
atabase Password=micoleao;"
End Sub
Private Sub command1_Click()
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Set cat = New ADOX.Catalog
Set tbl = New ADOX.Table
' Open the catalog.
cat.ActiveConnection = cn
' Create the new Table.
tbl.Name = "Linked_Employees"
Set tbl.ParentCatalog = cat
' Set the properties to create the link.
tbl.Properties("Jet OLEDB:Link Datasource") = "C:\Projetos em Andamento\RenatoSolos\LocalSysSl.MDB"
tbl.Properties("Jet OLEDB:Link Provider String") = "C:\Projetos em Andamento\RenatoSolos\LocalSysSl.MDB"
tbl.Properties("Jet OLEDB:Remote Table Name") = "rptFichaColeta"
tbl.Properties("Jet OLEDB:Create Link") = True
' Append the table to the Tables collection.
cat.Tables.Append tbl
Set cat = Nothing
End Sub