Dim myConnection As New OleDBConnection(ConnectionString)
' creates a dataset to store the information gained form the database
Dim DsMembers As Dataset = New DataSet()
Dim CommandText As String = "SELECT * from tbl_crews WHERE Name= '" & cbo_Crew.SelectedItem.Text & "'"
Dim myAdapter As OleDBDataAdapter = New OleDBDataAdapter(CommandText, myConnection)
myAdapter.Fill(DsMembers, "tbl_crews")
Dim I as integer
try
For I = 0 To DsMembers.Tables(0).rows.count-1
Dim strtemp as String = DsMembers.tables(0).rows(I).item(0).tostring & " - " & _
DsMembers.tables(0).rows(I).item(1).tostring
cbo_member.items.add(strtemp)
Next I
Catch ex as Exception
lbl_Message.text = ex.ToString()
Finally
End Try