本地EXCEL文件导入远程sql

想把本地的EXCEL文件导入到远程已存在的表中，本机导入没有问题，远程要怎么导入呢？
下面是我的代码
     Dim a As String
    Dim strSQL As String
    Dim lngRecsAff As Long
    Set cn = New ADODB.Connection
      cn.Open "Provider=SQLOLEDB;Data Source=" & strServerName & ";" & _
        "Initial Catalog=123;User ID=sa;Password=sa"
   strSQL = " insert into B1_Order ([cInvName],[dDate1],[cOrder],[cCustomer],[cfabric) select [规格],[接单日期],[订单号],[客户],[规格] FROM OpenDataSource('MICROSOFT.JET.OLEDB.4.0','Excel 5.0;HDR=YES;DATABASE=" & Text1.Text & ";')...[sheet1$] "
    cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
    Debug.Print "Records affected: " & lngRecsAff
     MsgBox "导入" & lngRecsAff & "条记录成功!"
    cn.Close
    Set cn = Nothing