Anche io dovevo risolvere un problema simile (anzi uguale) al tuo e ho risolto così:
codice:
Private Sub FillAutocomplete(ByVal dt As DataTable, ByVal txtAutoComplete As TextBox)
        Dim row As DataRow
        For Each row In dt.Rows
            txtAutoComplete.AutoCompleteCustomSource.Add(row("nome o numero campo").ToString())
        Next
End Sub
Credo sarà utile anche a te...
bye