Llenar un lisbox

Hola Jorge,

debes importar estos nombres de espacio, escribiendo esto en el comienzo del
código:

Imports System.Data
Imports System.Data.OleDb

Luego, debes añadir un control Button en el formulario, hacer doble clic
sobre él, y añadir el siguiente código:

Dim strConexion As String
Dim objConexion As OleDbConnection
Dim objComando As OleDbDataAdapter
Dim objDS As New DataSet

strConexion ="PROVIDER=MICROSOFT.JET.OLEDB.4.0;" & "DATA
SOURCE=C:\bbdd\Prueba.mdb"
objConexion = New OleDbConnection(strConexion)
objComando = New OleDbDataAdapter("Select * From Tabla", strConexion)
objComando.Fill(objDS, "Ejemplo")

Dim Row
For Each Row In objDS.Tables("Ejemplo").Rows
'Esto añade el primer elemento de la Select
ListBox1.Items.Add(Row(0))
Next

Un saludo,

Jorge Serrano Pérez
MVP VB.NET

"Jorge" wrote:

Qui me puede colaborar para llenar un lixbox desde access
no tengo la coneccion es desde cero agradesco si tienen
un ejemplo.

gracias.