en visual 6.o importar archivo excel

[phaser]

Tengo que realizar un trabajo para un ramo de taller de software en la U.
en mi empresa tienen un software echo en clipper y las bases de datos estan en dbf, a esto quisiera hacer una consulta en visual basic 6.0 solo de algunos campos de unas ordenes de compra, como rut ,orden,estado,etc.
sin embargo no entiendo mucho de esto y no se si se puede(es algo que se me ocurrio a mi), ya que el proyecto se trata de innovar o mejorar algo que este en nuestra empresa,l el profe me dijo que es algo facil de hacer, no soy computin, ni informatico, soy Comercial y esto me esta dando un dolor de cabeza que ni se imaginan.
bueno estpero que puedan ayudarme
un abrazo

[Avellaneda]

No se entiende muy bien lo que explicas con lo indicado en el título de la pregunta.

Te pongo un ejemplo para mostrar los datos de un archivo.dbf en un control Hierarchical FlexGrid:

Código:

  Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset

    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    cn.Open "Driver={Microsoft dBASE Driver (*.dbf)};" & _
    "DriverID=277;Dbq=c:\RutaCompleta de la BD\;"
    rs.Open "Select rut, orden, estado From OrdenesDeCompra.dbf", cn, , , adCmdText
    Set MSHFlexGrid1.DataSource = rs

[phaser]

Si tienes razon, no me explico bien...pues lo que necesito es ...: crear un formulario en visual que me lea una base de datos que esta en excel(esta en dbf,pero la traspase a una plantilla excel.

y no se como se hace esto.
gracias por tu ayuda.

[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.