en visual 6.o importar archivo excel

[Avellaneda]

Si conservas el archivo.dbf el código anterior es válido, si no es así aquí te pongo un código de cómo conectarse a una hoja excel (es este caso los datos se muestran en un control DataGrid)

Código:

  Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    With rs
        .ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
            App.Path & "\Libro1.xls;Extended Properties=Excel 8.0;"
        .CursorType = adOpenStatic
        .CursorLocation = adUseClient
        .Open "Select * From [Hoja1$]"
    End With
    Set DataGrid1.DataSource = rs

Recuerda que en ambos casos debes hacer referencia a ADO.