Llenar un listBox con los datos de una tabla VB .Net

[dandennymolina]

Bueno soy nuevo en la programación y un amigo me a pasado una función para realizar conexión de Vb .net a mysql, me conecto y puedo validar los registros de una tabla para ingresar.

Ahora quiero poder llenar un listbox con los datos de la tabla que ya use para validar el acceso, pero aun no puedo agradezco la ayuda y la explicación estoy realmente interesado en el tema.

Esta es la funcion con la cual valido si ya esta el registro creado.

Function Verificar(ByVal usuario As String, ByVal password As String) As Boolean

Dim oConnection As New MySqlConnection
Dim oAdapter As MySqlDataAdapter
Dim oDataSet As New DataSet
Dim sSql As String
Dim sw As Boolean
sw = False

Try
oConnection.ConnectionString = "server=localhost; database=prueba; user id=root; passsword=;"
sSql = "Select * from usuarios where nom_usuario='" & usuario & "' and pass='" & password & "'"

oConnection.Open()
oAdapter = New MySqlDataAdapter(sSql, oConnection)
oDataSet.Clear()
oAdapter.Fill(oDataSet, "usuarios")

If (oDataSet.Tables("usuarios").Rows.Count() <> 0) Then

sw = True
Else
MsgBox("piloso marica")
End If



Catch ex As Exception

End Try


Return sw

End Function

[Namiwis]

Hola dandennymolina

De DataSet a DataTable y recorrelo, algo como esto.

Código:

Dim dt As DataTabla = ds.Tablas(0)

For Each row As DataRow In dt.Rows

	'Aqui se agregan los datos a tu listBox
	listBox1.Items.Add(Convert.ToString(row("columna1")))

Next

Espero te sirva.