Dim Z_Table As String
Dim Z_DB As String
Dim sSQL As String
Dim NetPath As String = Nothing
Dim a As String = "MeinPasswort"
NetPath = "C.\Temp\NetzDB.accdb;"
conNetz.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; " &"Data Source=" & NetPath & " " &"Jet OLEDB:Database Password = '" & a & "';"
cmdNetz.Connection = conNetz
Dim LocPath As String = Nothing
Dim a As String = "MeinPasswort"
LocPath = "C.\Temp\LocalDB.accdb;"
conLocal.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; " &"Data Source=" & LocPath & " " &"Jet OLEDB:Database Password = '" & a & "';"
cmdLocal.Connection = conLocal
conLocal.Open()
conNetz.Open()
Z_Table = "tblTest"
Z_DB = "C:\Temp\LocalDB.accdb;"
Try
                sSQL = "SELECT * INTO  [" & Z_DB & "]." & Z_Table & " FROM " & Z_Table & ";"
                Using cmd2 As OleDb.OleDbCommand = New OleDb.OleDbCommand(sSQL, conNetz)
                      cmd2.ExecuteNonQuery()
                End Using
Catch ex As OleDbException
         MessageBox.Show(ex.Message, "OleDbException", MessageBoxButtons.OK,
          MessageBoxIcon.Exclamation)
          Return False
conLocal.Close()
ConNetz.Close()
        End Try