Comboboxes and Datasources

[brown monkey]

this?

Dim cn As New SqlConnection()
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      cn.ConnectionString = "user id=sa;password=password;initial catalog=northwind"
      cn.Open()
 
      Dim cmdtext As String = "select * from territories"
      Dim cm As New SqlCommand(cmdtext, cn)
      Dim dr As SqlDataReader = cm.ExecuteReader
      While dr.Read
         ComboBox1.Items.Add(dr(0) & ", " & dr(1) & ", " & dr(2))
      End While
 
      IDontKnow()
   End Sub
 
   Sub IDontKnow()
      Dim s As String
      Dim s2 As String
      For Each s2 In ComboBox1.Items
         s &= s2 & Constants.vbCrLf
      Next
      MessageBox.Show(s)
   End Sub