[kslawy]

السلام عليكم ورحمة الله وبركاته

كود :

Private Sub GetNames()
        Try
            TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
            TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest


            Dim cmd As System.Data.OleDb.OleDbCommand
            cmd = New System.Data.OleDb.OleDbCommand("select DISTINCT [fieldname] from [yourtable]", con)
            Con.Open()
            Dim dr As System.Data.OleDb.OleDbDataReader = cmd.ExecuteReader
            If dr.HasRows Then
                TextBox1.AutoCompleteCustomSource.Clear()
                While dr.Read
                    TextBox1.AutoCompleteCustomSource.Add(dr("fieldname").ToString)
                End While
            End If
            dr.Close()
            cmd.Dispose()


        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error")
        Finally
            Con.Close()
        End Try
    End Sub


****
***
**
*