Code: Select all
Dim CNN As ADODB.Connection
Dim RST As ADODB.Recordset
Dim SQL As String
Set CNN = New ADODB.Connection
Set RST = New ADODB.Recordset
CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\REPORT_L0928\BUSCEMI.xls;" & _
"Extended Properties=""Excel 8.0;HDR=Yes"";"