VBAを使用してSQL Serverに接続するにはどうすればよいですか？

SQL Serverデータベースから取得したデータを使用して差し込み印刷機能を自動化したいと考えています。私が使用しているコードは次のとおりです。VBAを使用してSQL Serverに接続するにはどうすればよいですか？

Sub open_DSN() 

    Dim strConnection As String 

    ActiveDocument.MailMerge.CreateDataSource Name:="DB-NAME", _ 
     Connection:="Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=DB-NAME;Data Source=DATA-SOURCE", _ 
     SQLStatement:="select * from DataTable" 

    ActiveDocument.MailMerge.OpenDataSource Name:="DB-NAME" 

    If ActiveDocument.MailMerge.DataSource.Name <> "" Then _ 
     MsgBox ActiveDocument.MailMerge.DataSource.Name 
    ' – code lifted from MS Help within Word that seems the nearest to what I require 
    'With ActiveDocument.MailMerge 
    ' .MainDocumentType = wdFormLetters 
    ' strConnection = "DSN=MS Access Databases;" _ 
    '  & "DBQ=C:\Northwind.mdb;" _ 
    '  & "FIL=RedISAM;" 
    ' .OpenDataSource Name:="C:\NorthWind.mdb", _ 
    '  Connection:=strConnection, _ 
    '  SQLStatement:="SELECT * FROM Customers" 
    'End With 

    With ActiveDocument.MailMerge 
      .MainDocumentType = wdFormLetters 
      strConnection = "Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=DB-NAME;Data Source=DATA-SOURCE" 
     .OpenDataSource Name:="DB-NAME", _ 
       Connection:=strConnection, _ 
       SQLStatement:="SELECT * FROM DataTable" 
    End With 
End Sub

残念ながら、このコードではデータを表示できません。私は間違って何をしていますか？

出典

2011-12-06 Rajendra Narine

RajendraNarine：どうぞよろしくお願いいたします。また、あなたがStackOverflowを初めて使用しているので、回答の横にあるチェックマークをチェックすることで一番の助けになった回答を受け入れることができることをお知らせしたいと思います。 –