Visual Basic

Dim myConnection As New OleDbConnection()
dim oDataAdapter  as dataAdapter
Dim oDataTable as DataTable

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
	myconnection=new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Test.Mdb")
	oDataAdapter = New OleDbDataAdapter("Select * From Table1", myConnection)
	oDataTable=New DataTable
	oDataAdapter.Fill(oDataTable)
	ListBox1.DataSource = oDataTable
	ListBox1.ValueMember = "product"
end sub 

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
	dim sProduct as string=ListBox1.SelectedItem.ToString()
	if not isNothing (sproduct) then
		oDataAdapter = New OleDbDataAdapter("Select Supplier From Table1 where Product=" & sProduct & ", myConnection)
		oDataTable=New DataTable
		oDataAdapter.Fill(oDataTable)
		ListBox2.DataSource = oDataTable
		ListBox2.ValueMember = "Supplier"

	end if

End Sub

Dim a(6) as Byte
For i As Integer = 0 to 6
   a(i) = Convert.ToByte(ListBox3.Items(i))
Next

Christian Graus wrote:

Yeah, I'd have done that, but I was pretty sure my VB would not compile...

nitin_ion wrote:

in VB 2.0

Do until "Hell Freezes Over"
    Debug.Print("Astonished")
Loop

Dim MyCollect as Collection
Set MyCollect = new Collection
Dim Data as Integer

Data = 1
MyCollect.Add Data

Data = 2
MyCollect.Add Data
Data = 3
MyCollect.Add Data

Set MyCollect = Nothing