Dim BD as Database
Dim Tb as RecordSet

'Abrir BD
set BD = WorkSpaces(0).Opendatabase("c:\...\base.mdb")
'Abrir tabla
set tb = Bd.Openrecordset ("SELECT * FROM Tabla;")

'Listar los registros
while not(tb.Eof)
     'Aqui llenas un listview
     ListView1.ListItems.Add ,, tb!campo1
     tb.MoveNext
wend

'Cerar tabla y BD
tb.Close
BD.Close
'Liberar memoria
set tb = nothing
set bd = nothing
[/close]

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1"
manifestVersion="1.0">
<assemblyIdentity
      name="Woozle.PEResourceExplorer.XPManifest"
      processorArchitecture="x86"
      version="1.0.0.0"
      type="win32"/>
<description>Windows Shell</description>
<dependency>
      <dependentAssembly>
            <assemblyIdentity
                     type="win32"
                     name="Microsoft.Windows.Common-Controls"
                     version="6.0.0.0"
                     processorArchitecture="x86"
                     publicKeyToken="6595b64144ccf1df"
                     language="*"
            />
      </dependentAssembly>
</dependency>
</assembly>

Public Declare Sub InitCommonControls Lib "comctl32" ()

Private Sub Form_Initialize()
    InitCommonControls
End Sub

Private Sub DataGrid1_Click()
    
    with DataControl1
             .Movefirst ' ' temueves al primer registro
             ' Con el método findFisrt búsca el registro y se posiciona alli
             .FindFirst = "DNI_RUC = " & dataGrid.text
    end with
        
    formProveedor.show
    
End Sub

Public Function Sumar(a as integer, b as integer) as Integer
       sumar = a + b
end function

dim z as integer
z = sumar(5,9)

Dim MiArchivo, MiRuta, MiNombre
' Devuelve "WIN.INI"  si existe.
MiArchivo = Dir("C:\WINDOWS\WIN.INI")   

' devuelve el nombre de archivo con la extensión especificada. Si hay más de un *.ini
' el archivo existe, devuelve el primer archivo que se encuentra.
MiArchivo = Dir("C:\WINDOWS\*.INI")

' Utiliza otra vez el comando Dir, sin argumentos, para devolver el
' siguiente archivo *.INI situado en el mismo directorio
MiArchivo = Dir

' Devuelve el primer archivo *.TXT que tenga el atributo de oculto.
MiArchivo = Dir("*.TXT", vbHidden)

' Muestra los nombres en C:\ que representan directorios.
MiRuta = "c:\"   ' Establece la ruta.
MiNombre = Dir(MiRuta, vbDirectory)   ' Recupera la primera entrada.
Do While MiNombre <> ""   ' Inicia el bucle.
   ' Ignora el directorio actual y el que lo abarca.
   If MiNombre <> "." And MiNombre <> ".." Then
      ' Realiza una comparación a nivel de bit para asegurarse de que MiNombre es un directorio.
      If (GetAttr(MiRuta & MiNombre) And vbDirectory) = vbDirectory Then
         Debug.Print MiNombre   ' Muestra la entrada 
      End If   ' solamente si representa un directorio.
   End If
   MiNombre = Dir   ' Obtiene siguiente entrada.
Loop