Sub tst2()
    Dim t As DAO.TableDef
    Dim Con$
    
    Con = "ODBC;Driver={SQL Server};Server=GENETIKA\FSERVER;" & _
          "Database=northwind;UID=sa;PWD=0;table=dbo.orders"
    
    With CurrentDb
        If IfTblExist("Orders") Then
            .TableDefs.Delete ("orders")
        End If
        Set t = .CreateTableDef()
        t.Name = "Orders"
        t.SourceTableName = "dbo.Orders"
        t.Connect = Con
        .TableDefs.Append t
        .TableDefs.Refresh
    End With
    Set t = Nothing
End Sub

Function IfTblExist(s$) As Boolean
    On Error Resume Next
    IfTblExist = (CurrentDb.TableDefs(s).Name = s)
End Function