Private Sub DisplayATC()
sb = New StringBuilder
sb.Append("select Database ")
Dim dt As DataTable = dx.GetDataTable(sb.ToString())
If dt.Rows.Count > 0 Then
For Each dr As DataRow In dt.Rows
ATC.Add(dr.Item(".....").ToString().Trim())
Next
SetAutoCompleteMode()
Else
ATC.Clear()
End If
End Sub
Private Sub SetAutoCompleteMode()
With Textbox
.AutoCompleteSource = AutoCompleteSource.CustomSource
.AutoCompleteCustomSource = ATC
.AutoCompleteMode = AutoCompleteMode.SuggestAppend
End With
End Sub
Load balance : Server 04
