Sub ChangeConnectTable(Optional dbPathName As String = "C:", Optional ViaConnect As Boolean = True)
     Dim sConnect As String
     Dim dbs As Variant
     Dim tdf As TableDef
     Dim prp As Property
     Dim dolar As String
     'Database=" & CurrentProject.path & "\adressenneu.sqlite;
     'Database=C:\pmf\mrs.db
     ';PWD=Admin
     
     dolar = ""
     If (dbPathName = "C:") Then dolar = "$"
     
     sConnect = "ODBC;DSN=SQLite3 Datasource;" & _
                "Driver={SQLite3 ODBC Driver};" & _
                "Database=" & dbPathName & "\smltrkkl" & dolar & "\akca\data\mrs.db;" & _
                "LongNames=0;ShortNames=0;NoWCHAR=0;FKSupport=1;" & _
                "Timeout=500;NoTXN=0;OEMCP=1;BigInt=0;JDConv=0;StepAPI=0;" & _
                "NoCreat=1;SyncPragma=FULL;"
                
     Debug.Print sConnect
     DoCmd.TransferDatabase acLink, "ODBC Database", sConnect, acTable, "tUser", "tmUser"
     Exit Sub
     
     If ViaConnect Then
         Set dbs = CurrentDb
         Set tdf = dbs.TableDefs("tmUser")
         tdf.connect = sConnect
         tdf.RefreshLink
         dbs.TableDefs.Refresh
         Set tdf = Nothing
     Else
         DoCmd.TransferDatabase acLink, "ODBC Database", sConnect, acTable, "tblAdressen", "tmUser"
         DoCmd.DeleteObject acTable, "tmUser"
         DoCmd.Rename "tblAdressen", acTable, "tblAdressen1"
     End If
End Sub