BULK INSERT Test FROM C:\test.xlsx WITH (FIRSTROW = ?, FIELDTERMINATOR = ?,ROWTERMINATOR =?, TABLOCK)

strSQL="BULK INSERT  ...."
With objCommand
        .ActiveConnection = objConnection
        .CommandType = adCmdText
        .CommandText = strSQL
        .Execute
    End With

Private Sub test()
        Dim cn As Object
        Set cn = CreateObject("ADODB.Connection")
            cn.CommandTimeout = 600
            cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;server=***"
            cn.Open

sql = ""
sql = sql & Chr(10) & "BULK INSERT ad.temp.bulk_test from 'C:\test.csv'"
sql = sql & Chr(10) & "with("
sql = sql & Chr(10) & "         FIELDTERMINATOR = ';',"
sql = sql & Chr(10) & "         ROWTERMINATOR = ';'"
sql = sql & Chr(10) & "    )"
cn.execute sql     
End Sub

BULK INSERT Sales.Orders
FROM '\\SystemX\DiskZ\Sales\data\orders.dat';