Salve..
Avevo bisogno di creare una specie di completamento automatico del testo in dei TextBox e dei ComboBox prendendo dei dati da un DB Access..

Ho fatto questo:

codice:
Private Sub cmbint_KeyUp(KeyCode As Integer, Shift As Integer)

    [ ... ] Parte di connessione al DB

    Dim sql As String
    sql = "SELECT intda FROM azioni WHERE intda LIKE '" & Apostrofo(cmbint.Text) & "%' ORDER BY intda"
    rs.Open sql, cn, 3, 3
    If (Not rs.EOF) And KeyCode > 32 And KeyCode <> vbKeyLeft And KeyCode <> vbKeyRight Then
        Dim inisel
        inisel = Len(cmbint.Text)
        cmbint.Text = rs("intda")
        cmbint.SelStart = inisel
        cmbint.SelLength = Len(cmbint.Text)
    End If
    rs.Close
End Sub
In pratica sull'evento keyUp leggo il textbox e vado a prendere la prima occorrenza del DB che inizia con ciò che è stato immesso nel textbox e seleziono la parte aggiunta, funziona, ma ha un problema, è lento, troppo lento, premenendo velocemente (poi nenache tanto) i tasti sulla tastiera non fa in tempo a selezionare il testo e quindi ciò che si scrive va ad aggiungersi a ciò che già sta nella textbox invece di sostituirvicisi..

Spero di essere stato chiaro..

Consigli?

Grazie mille..