将电子表格中的列与SQL Server匹配，并将数据转储到同一电子表格中

Question

我要创建一个宏，它将电子表格中的列与sql server表匹配，并将数据转储到电子表格中。例如，我的电子表格包含以下列：

JobNumber
J114567
J012345
J556896

我需要将Jobnumber与sql server表匹配并将数据转储到电子表格中;

JobNumber`Customer`
J114567  `ABC`
J012345`  Xyz Solutions`
J556896` DEF corporation`

我创建了一个简单的宏，它将从sql server中提取数据。如何将电子表格中的作业与sql表匹配？我是VBA的新手。任何帮助表示赞赏。感谢。

这是宏：

Sub GetDataFromADO()
'Declare variables'
    Set objMyConn = New ADODB.Connection
    Set objMyRecordset = New ADODB.Recordset
    Dim strSQL As String

'Open Connection'
    objMyConn.ConnectionString = "Provider=SQLOLEDB;Data Source=0.0.0.0;Initial Catalog=job;User ID=test;Password=test123;"
    objMyConn.Open

'Set and Excecute SQL Command'
    strSQL = "select top 100 * from jobtab"

'Open Recordset'
    Set objMyRecordset.ActiveConnection = objMyConn
    objMyRecordset.Open strSQL

'Copy Data to Excel'
    ActiveSheet.Range("A1").CopyFromRecordset (objMyRecordset)

End Sub