Example Code:
Code:
Dim Conn As SqlConnection = New SqlConnection("Server=.;Trusted_Connection=True;Initial Catalog=ke")
Dim Comm As SqlCommand = New SqlCommand("SELECT ID FROM MyTableName", Conn)
Dim dReader As SqlDataReader = Nothing
Try
Conn.Open()
dReader = Comm.ExecuteReader()
If dReader.HasRows = True Then
ComboBox1.Items.Clear()
Do While dReader.Read
ComboBox1.Items.Add(dReader("ID")) 'OR: ComboBox1.Items.Add(dReader(0))
Loop
dReader.Close()
End If
Catch ex As Exception
MessageBox.Show(ex.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Finally
Conn.Dispose()
Comm.Dispose()
End Try
Good luck