..
Public Const Conn_Str As String = "ODBC;DATABASE=tel;UID=sa;PWD=xxx;DSN=tango"
..
Dim MyODBC As Workspace
Dim MyConn As Connection
Dim TestTable As Recordset
  Set MyODBC = CreateWorkspace("", "admin", "", dbUseODBC)
  Set MyConn = MyODBC.OpenConnection("", , , Conn_Str)
   If Not IsNull(Me![Sp_Podr].Column( 0 )) Then
    Set TestTable = MyConn.OpenRecordset("Tpers", dbOpenDynaset,  0 , dbPessimistic)
    With TestTable
       .AddNew
       ![Podr_Id] = Me![Sp_Podr].Column( 0 )
       ![Pers_Fio] = "Новый сотрудник"
       .Update
    End With
   End If
  MyConn.Close
  MyODBC.Close