Um exemplo:
******************************************
Coloque 1 caixa de texto num form e depois coloque....
NAS DECLARAÇÕES:
Dim BD As Database
Dim Tabela As Recordset
NO FORM LOAD:
Set BD = OpenDatabase("C:Arquivos de ProgramasMicrosoft Visual StudioVB98Biblio.mdb")
NO EVENTO KEY_UP DA TEXTBOX
Dim Pos As Integer
On Error Resume Next
If Text1.SelStart = 0 Then Exit Sub
Set Tabela = BD.OpenRecordset("SELECT TOP 1 Author FROM Authors WHERE Author Like '" & Mid(Text1.Text, 1, Text1.SelStart) & "*' ORDER BY Author Asc")
If Not Tabela.EOF Then
Pos = Text1.SelStart
Text1.Text = Tabela("Author")
Text1.SelStart = Pos
Text1.SelLength = Len(Text1)
End If
***********************************************************
Precisa de uns ajustes mas o grosso é isso ae....
qq coisa é só postar
t+
