Error en ejecucion

[yumiles]

Hola ginitofl:
Antes que nada... Gracias por tu respuesta.
Ya intente lo que me dijiste pero me sigue marcando error al hacer la busqueda de un registro que tiene campos vacios.
Cuando el registro esta completo los muestra bien.
Asi quedo mi codigo:

Dim intFila As Integer = 0
Dim StrFila As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dt As New DataTable
Dim intCve = TextBox1.Text
Dim strConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=inventarioXP.mdb"
Dim strSQL As String = "SELECT * FROM prueba where [id]=" & intCve & ";"

Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, strConexion)
dataAdapter.Fill(dt)
dataAdapter.Dispose()
TextBox1.Text = "" & CStr(dt.Rows(intFila)("id"))
TextBox2.Text = "" & CStr(dt.Rows(intFila)("nombre"))
TextBox3.Text = "" & CStr(dt.Rows(intFila)("apellido"))
dt = Nothing
Esta bien?


De antemano gracias por tu ayuda y tiempo
Saludos.....