Dim var As String = cbAccount.SelectedItem
strsql = "Select Distinct TimerTower from tblAccount where (TimerAccount = '" + var + "')"
Dim acscmd As New SqlCommand
acscmd.CommandText = strsql
acscmd.Connection = cn
acsdr = acscmd.ExecuteReader
'If cbTower.SelectedItem = "" Then
While (acsdr.Read())
Me.cbTower.Items.Add(acsdr("TimerTower"))
End While
acscmd.Dispose()
acsdr.Close()
<pre></pre>
It was because of Select statement was wrong.
Best regards!