Dim cn As adodb.Connection
Dim strSQL As String
Dim lngRecsAff As Long
Set cn = New adodb.Connection
DoEvents
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Text1.Text & ";" & _
"Extended Properties=Excel 8.0"
'Importo usando Jet Provider.
strSQL = "SELECT * INTO [ODBC;Driver={SQL Server};" & _
"Server=SERVER;Database=BASE;" & _
"UID=USER01;PWD=USER01].BASEPRUEBA " & _
"FROM [" & Combo1.Text & "]"
cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
MsgBox "Números De Registros Importados : " & lngRecsAff
cn.Close
Set cn = Nothing