[VB] Inner join

Public Function VincularTabla(pTabla As String) As Boolean
   
   Dim tblLink As ADOX.Table
    On Error GoTo ctrlErr
   Set catDB = New ADOX.Catalog
   Set catDB.ActiveConnection = ConexionDestino
    'ConexionDestino es la conexion de la Base de datos donde se creara el vinculo (es del tipo ADODB.Connection)
    
   If DesvincularTabla(pTabla) Then
       Set tblLink = New ADOX.Table
       
       With tblLink
          .Name = pTabla
          'nombre con el que te vas a referir a la tabla vinculada en tus consultas 
          Set .ParentCatalog = catDB
          
          .Properties("Jet OLEDB:Create Link") = True
          .Properties("Jet OLEDB:Link Datasource") = ConexionOrigen
          .Properties("Jet OLEDB:Remote Table Name") = pTabla
        'ConexionOrigen paso completo de la Base de datos de origen (la que contiene la tabla a vincular)
'Remote Table Name nombre de la tabla a vincular
       End With
       
       catDB.Tables.Append tblLink
       
       VincularTabla = True
    Else
       VincularTabla = False
    End If
    
   Exit Function
ctrlErr:
    VincularTabla = False
End Function
 
Public Function DesvincularTabla(pTabla As String) As Boolean
    On Error GoTo ctrlErr
    
    DesvincularTabla = True
    catDB.Tables.Delete (pTabla)
    
    Exit Function
ctrlErr:
    If Err.Number <> 3265 Then
        DesvincularTabla = False
    End If
    
End Function

Set catDB.ActiveConnection = ConexionDestino
    'ConexionDestino es la conexion de la Base de datos donde se creara el vinculo (es del tipo ADODB.Connection) 

 adoR1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\data.mdb"
adoR1.RecordSource = "select * from clientes"
adoR1.Refresh