barbarapgd

Dim cn As ADODB.Connection Dim strSQL As String Dim lngRecsAff As Long cn = New ADODB.Connection cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\Empleados.xls;" & _ "Extended Properties=Excel 8.0") strSQL = "SELECT * INTO...