Extraer datos con VB.net y OleDb

[Gustavo1973]

Estoy iniciando con .net.
Con vb6.0 lo se hacer, pero no puedo enganchar la forma de traer los datos de la base de datos con OleDb.
Declare las clases asi

Código ASP:

Public Class Conexion
        Public Function DBConectar() As OleDbConnection
            Dim Ini As CIniClass
            Ini = New CIniClass
            Ini.Archivo = System.AppDomain.CurrentDomain.BaseDirectory() & "prueba.ini"
            Dim base As String
            base = Ini.LeeIni("BaseDatos", "Base")
            Dim connetionString As String
            Dim cnn As OleDbConnection
            connetionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & System.AppDomain.CurrentDomain.BaseDirectory() & base
            cnn = New OleDbConnection(connetionString)
            DBConectar = cnn
        End Function
       Public Function consulta(ByVal qbusca As String, ByVal con As OleDbConnection) As OleDbDataAdapter
            Dim da As New OleDb.OleDbDataAdapter(qbusca, con)
            consulta = da
        End Function
End Class
 

Y llamo la funcion consulta asi

Código ASP:

]
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cnn As OleDbConnection
        Dim tabla As OleDbDataAdapter
        Dim con As Conexion
        Dim ds As New DataSet
        con = New Conexion
        cnn = con.DBConectar
        cnn.Open()
        tabla = con.consulta("SELECT nombre, estado FROM prueba", cnn)
        cnn.Close()
    End Sub
 

Como recupero las datos???
Desde ya muchas gracias.

[Gustavo1973]

Nadie puede ayudarme??
Estoy paralizado con esto!!!