Private Sub LinkDizIS_Click()
    Dim Baza As Database
    Dim tdfLinked As TableDef
    Dim i As Integer
    Dim a As Integer
    Dim IME As String
    
    Set Baza = CodeDb
    
    
    Me.NazivServera = Me.LokalNazivServera
    Me.NazivBaze = Me.LokalNazivBaze
    Me.Korisnik = Me.LokalKorisnik
    Me.Lozinka = Me.LokalLozinka
    Me.Requery
    
    DoCmd.OpenForm "Cekaj"
    DoCmd.RepaintObject A_FORM, "Cekaj"
    
    DoCmd.SetWarnings False
    
    On Error Resume Next
    With Baza
    a = .TableDefs.Count - 1
        For i = a To 0 Step -1
            IME = .TableDefs(i).Name
            If .TableDefs(i).Connect <> "" Then
                    .TableDefs.Delete IME
            End If
        Next i
    End With
    
    Dim Tabele As DAO.Recordset
    Dim ImeTabele As String
    Dim KonektString As String
    'Provider=sqloledb;Data Source=190.190.200.100,1433;Network Library=DBMSSOCN;Initial Catalog=pubs;User ID=myUsername;Password=myPassword;
    'KonektString = "Provider=sqloledb" & ";ODBC;DRIVER=SQL Server;SERVER =" & "192.168.1.33,1433" & ";Network Library=DBMSSOCN;Initial Catalog=" & Me.LokalNazivBaze & ";User ID=" & Me.LokalKorisnik & ";Password=" & Me.LokalLozinka & "'" ';Trusted_Connection"
    KonektString = "ODBC;DRIVER=SQL Server;SERVER=" & Me.LokalNazivServera & ";UID=" & Me.LokalKorisnik & ";PWD=" & Me.LokalLozinka & ";DATABASE=" & Me.LokalNazivBaze & ";Trusted_Connection"
    'KonektString = "ODBC;DRIVER=SQL Server;SERVER=" & "192.168.1.33,1433" & ";UID=" & Me.LokalKorisnik & ";PWD=" & Me.LokalLozinka & ";DATABASE=" & Me.LokalNazivBaze & ";Trusted_Connection"
    SendKeys ("{ENTER}")
    
    DoCmd.TransferDatabase acLink, "ODBC Database", KonektString, acTable, "sysobjects", "LinkTables", , True
 
    Set Baza = CurrentDb
    Set Tabele = Baza.OpenRecordset("QLinkTables1") ', DB_OPEN_DYNASET)

   With Tabele
      Do While Not .EOF
            ImeTabele = Tabele("Name")
            If Trim(Tabele("type")) = "V" Then
                
                DoCmd.TransferDatabase acLink, "ODBC Database", KonektString, acTable, ImeTabele, ImeTabele, False, True
                
            Else
                DoCmd.TransferDatabase acLink, "ODBC Database", KonektString, acTable, ImeTabele, ImeTabele, False, True
               
            End If
            .MoveNext
      Loop
   End With
    
'    Set Baza = CodeDb

'    With Baza
'        .TableDefs.Delete "LinkTables"
'    End With
   
    DoCmd.Close A_FORM, "Cekaj"
    BEEP
    
    DoCmd.SetWarnings True
    DoCmd.Close acForm, "_Link"

End Sub