xlsx es la extensión del excel pero del office 2007 .. pues no es reconocido por visual basic 6.0 usa un excel anterior con extensión xls como el excel 200, el xp...

y si necsitas ejemplos buscalos en PSC (planet source code) alli hay muchos ejemplos casi ..casi de todo.

saludos.

Al final me conecto asi:

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=C:\eq.xls;" & _
"Extended Properties=Excel 8.0;"
    .Open
End With

Lo que me falta es saber como puedo leer los datos del excel, es crear un recordset para leer los datos del excel.

Algun ayudita??

graciasss

mmm ya esta mira

ejemplo Source Ado en Excel/Access: Descargar

con el libro de Excel abre un proyecto nuevo: y en un modulo agrega este codigo (proceso inicial Sub Main quita el Formulario)

Public Const SQL_Config = "select * from [configuracion$] " ' Para Access Quita Corchetes y el Signo de Pesos
Public Const SQL_Datos = "select * from [datos$] " ' Para Access Quita Corchetes y el Signo de Pesos
Public Cant_ACC As Integer
Public CN As New ADODB.Connection
Public rs As New ADODB.Recordset
Private DirectorioBDD As String
 
Enum BDD
    Excel = 0
    Access = 1
End Enum
 
Sub Main()
    DirectorioBDD = App.Path & "\data.xls" ' Cambiar el nombre _
                                            y tipo de archivo _
                                            es decir su extención _
                                            por la de Access si se _
                                            requiere su lectura
    Call AdoExcelAccess(Excel)
End Sub
 
Public Sub AdoExcelAccess(BDD As BDD)
    CN.Provider = "Microsoft.Jet.OLEDB.4.0"
    If BDD = Access Then
        CN.ConnectionString = DirectorioBDD
    ElseIf BDD = Excel Then
        CN.ConnectionString = "Data Source=" & DirectorioBDD & ";Extended Properties=Excel 8.0;"
    Else
        Exit Sub
    End If
    CN.Open
    rs.Open SQL_Config, CN, adOpenKeyset, adLockOptimistic
    rs.MoveFirst
    Cant_ACC = Val(rs!cant_list)
    MsgBox Cant_ACC
    rs.Close
    rs.Open SQL_Datos, CN, adOpenKeyset, adLockOptimistic
    rs.MoveFirst
    For i = 1 To Cant_ACC - 1
        datos = CStr(rs!id) & vbNewLine & _
        CStr(rs!vj) & vbNewLine & _
        CStr(rs!genero) & vbNewLine & _
        CStr(rs!plataforma) & vbNewLine & _
        CStr(rs!existencias) & vbNewLine & _
        CStr(rs!precio)
        rs.MoveNext
        MsgBox datos
    Next i
End Sub
 

Como ves te puse uno de Excel y uno de Access
En este Ejemplo use Ado como si nada no importando si es Access o Excel de igual forma es para SQLServer y MySQL


P.D.: Encontre la Forma por accidente cuando esta jugando con el Codigo y jugando con los campos de Access tanto como de Excel...¡! je je je...¡!

Saludos Dulces Lunas

Baja El Source funciona a la perfección

El Source que te acabo de dar es Explicito para VB6, con unos cambios funcionaria bien en el VBA