Связать ACCESS 2010 с SQL Server 2008 R2

Private Sub Form_Load()
Dim db As Database
Dim td As TableDef
Dim ws As Workspace
Dim strCnn As String
Dim tbl As TableDef
Dim serverName, serverDBName, tblName, makeHidden 'Обьявляем переменные
 
serverName = "ИмяСервера"     'Имя сервера
serverDBName = "ИмяБД"      'Имя базы данных на сервере
tblName = "Таблица"   'Имя линкованной таблицы
 
On Error Resume Next
Set db = CurrentDb
 
For Each td In db.TableDefs
 If td.Connect <> "" Then DoCmd.RunSQL "DROP TABLE [" & td.Name & "]"
Next
 
strCnn = "ODBC;" & _
 "Description=еее;" & _
 "DRIVER=SQL Server;" & _
 "SERVER=" & serverName & ";" & _
 "APP=Microsoft Office 2007;" & _
 "WSID=Server;" & _
 "DATABASE=" & serverDBName & ";" & _
 "Trusted_Connection=Yes;"
 
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("", dbDriverNoPrompt, False, strCnn)
 
For Each td In db.TableDefs
 NewName = Mid(td.Name, 5, Len(td.Name))
 Set tbl = CurrentDb.CreateTableDef(NewName)
 tbl.Connect = strCnn
 tbl.SourceTableName = td.Name
 CurrentDb.TableDefs.Append tbl
Next td
 
End Sub

Private Sub Form_Close()
Dim db As DAO.Database
Dim td As DAO.TableDef
Dim qd As DAO.QueryDef
On Error Resume Next
Set db = CurrentDb
For Each td In db.TableDefs
    If td.Connect <> "" Then DoCmd.RunSQL "DROP TABLE [" & td.Name & "]"
   'If td.Name Like "tmp_*" Then DoCmd.RunSQL "DELETE * FROM [" & td.Name & "]"
Next
 
For Each qd In CurrentDb.QueryDefs
    If qd.Type = 144 Or qd.Type = 112 Then
        qd.Connect = "ODBC;"
    End If
Next qd
 
If Not td Is Nothing Then Set td = Nothing
If Not qd Is Nothing Then Set qd = Nothing
If Not db Is Nothing Then Set db = Nothing
'MsgBox ("Соединение с сервером завершено!")
End Sub