Buenas tengo un problema, no puedo hacer que este codigo funcione, no se donde puede estar el error, por favor le agradeceria algun aporte o ayuda que me sirva para solucionar esto, aca el codigo:

Dim dt As New DataTable
Dim ds As New DataSet
ds.Tables.Add(dt)

Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM TRABAJADORES", cnn)
da.Fill(dt)

Dim r As DataRow

TxtCedula.AutoCompleteCustomSource.Clear()

For Each r In dt.Rows
TxtCedula.AutoCompleteCustomSource.Add(r.Item(7).T oString)
Next

En mi caso item 7 seria el campo 7 (Cedula) de la tabla trabajadores.
Luis Salazar, Venezuela.