¡¡Ayuda con DBF!!

Sres.

Tengo un gran problema, necesito sólo extraer datos de algunos
archivos dbf. He buscado en el historial del grupo en Google y he
probado con todos los ejemplos que allí se explican, pero siempre me
sale el mismo error. Les ruego que me den una mano, porque ya estoy
verde!!

Desde ya muchísimas gracias!

El código que estoy probando es este:

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim cnn As OleDb.OleDbConnection
Dim oCommand As New OleDb.OleDbCommand()
Dim oDataAdapter As OleDb.OleDbDataAdapter
Dim oDataSet As New DataSet()

ConectarBD_DBF("D:\Documentos\Desarrollo\Ver DBF\bin", cnn)
cnn.Open()

With oCommand
.CommandText = "SELECT * FROM prueba"
.Connection = cnn
End With

oDataAdapter = New OleDb.OleDbDataAdapter(oCommand)

Try
oDataAdapter.Fill(oDataSet, "Prueba")
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try


Public Function ConectarBD_DBF(ByVal Directorio As String, ByRef Con As
OleDb.OleDbConnection) As Boolean
Dim CadenaConexion As String

CadenaConexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Directorio & _
";Extended Properties=dBASE III;User ID=Admin;Password="
Try
Con = New OleDb.OleDbConnection(CadenaConexion)
Catch e As Exception
MessageBox.Show("Error al crear la conexión:" & vbCrLf &
e.Message)
Return (False)
End Try
End Function


Saludos!

Mauricio López
www.pronet.com.uy
Maldonado - Uruguay