Option Compare Database
Option Explicit

Const constr = "ODBC;DSN=NR3POSME;UID=sa;DATABASE=FO_Station;" & _
               "pwd=0;app=UFO+;wsid=RADIOX"

Sub link()
    Dim t As DAO.TableDef
    Dim DestTbl$, SrcTbl$
    Dim s$
    
    DestTbl = "Partia"
    SrcTbl = "dbo.SCL_SROK"
    
    On Error Resume Next
    DoCmd.DeleteObject acTable, DestTbl
    
    On Error GoTo 1
    Set t = CurrentDb.CreateTableDef()
    t.Name = DestTbl
    t.SourceTableName = SrcTbl
    t.Connect = constr
    CurrentDb.TableDefs.Append t
    
    s = "create unique index UN on " & DestTbl & _
        " (articul, partia, srok, id_sclad)"
    CurrentDb.Execute s, dbFailOnError
    Set t = Nothing
    Exit Sub
1:  MsgBox Err.Description, vbCritical, "Err # " & Err.Number
    Err.Clear
End Sub