Visual Basic.NET - problema conexion con bd access

Hola.
Estoy dando mis primeros pasos en visual basic, intentando crear un programa combinado con access, pero tengo un problema y espero que me ayudeis porfavor.

Estoy creando un programa que me conecte con una base de datos de acces y me guarde los datos del registro de access en los text. El problema es que no se porque no me funciona. visual no me da ningun error, pero a la hora de ejutar el programa se me queda sin mostrar nada los text en blanco. seguro que se me olvida agregar algun comando o activar algo, pero nose que. Os agradeceria vuestra ayuda.
En el formulario de visual basic tengo 2 text box. y en la tabla de acces dos columna fruta y verdura.
Gracias.
El codigo es este:

Public Class frmBiblioteca

Dim dt As New DataTable
Dim intFila As Integer = 0

Private Sub frmBiblioteca_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strConexion As String = "provider=microsoft.Jet.OLEDB.4.0;Data Source=""prueba.mdb"
Dim strSQL As String = "SELECT * FROM tabla"
Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, strConexion)
dataAdapter.Fill(dt)
dataAdapter.Dispose()
ActualizaTexto()
End Sub

Private Sub ActualizaTexto()
txtFruta.Text = CStr(dt.Rows(intFila)("Fruta"))
txtVerdura.Text = CStr(dt.Rows(intFila)("Verdura"))
End Sub
End Class

Me parece que te esta faltando el imports para OleDB que va al principio y seria asi:

Imports System.Data.OleDb

Antes de nada gracias por contestar.
Cuando inserto el
Imports System.Data.OleDb
me da un error.
quiza no lo coloco donde debiera.

Es la primer linea que tienes que poner, arriba de todo va.

Gracias de nuevo.
la tengo insertada al principio. pensaba que a lo mejor estaba mal colocada.por que ni se inmuta el programa
tienes mail?.
si quieres te lo paso y le das un vistazo.
gracias.

Bueno, creo q el problema son las dos lineas del actualizatexto.
mira, en visual se lee asi

a=b

y el valor de b se inserta en a
en otras palabras el valor de la derecha se inserta al de la izquiierda
entonces, lo que tu haces es poner en el textbox el dato de la tabla.
no lo he intentado pero seria ideal
que cambies el orden, de esta manera.

Private Sub ActualizaTexto()
CStr(dt.Rows(intFila)("Fruta")) = txtFruta.Text
CStr(dt.Rows(intFila)("Verdura")) = txtVerdura.Text
End Sub
End Class