Imports System.Windows.forms
 
Imports System.DATA.oledb
 
 
 
 
Public Class Form1
 
Private Sub Form1_Load(ByVal sender AS System.Object, ByVal e AS System.EventArgs) Handles MyBase.LOAD
 
Dim objcmd AS New DATA.OleDb.OleDbCommand
 
Dim objrdr AS DATA.OleDb.OleDbDataReader
 
Dim TableName AS String = ""
 
Dim query AS String = ""
 
Dim cbo AS ComboBox = Nothing
 
Dim con AS New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=C:\Documents and Settings\bashkark\Desktop\Final Database.mdb")
 
con.Open()
 
FOR x AS Int32 = 1 TO 5
 
SELECT Case x
 
Case 1
 
query = "SELECT DISTINCT Mfg FROM table1 WHERE Mfg IS NOT NULL ORDER BY Mfg"
 
TableName = "Mfg"
 
cbo = ComboBox1
 
Case 2
 
query = "SELECT DISTINCT MAKE FROM table1 WHERE MAKE IS NOT NULL ORDER BY MAKE"
 
TableName = "Make"
 
cbo = ComboBox2
 
Case 3
 
query = "SELECT DISTINCT GRAPHICSCARD FROM table1 WHERE GRAPHICSCARD IS NOT NULL ORDER BY GRAPHICSCARD"
 
TableName = "GRAPHICSCARD"
 
cbo = ComboBox3
 
Case 4
 
query = "SELECT DISTINCT GRAPHICSVERSION FROM table1 WHERE GRAPHICSVERSION IS NOT NULL ORDER BY GRAPHICSVERSION"
 
TableName = "GRAPHICSVERSION"
 
cbo = ComboBox4
 
End SELECT
 
objcmd.Connection = con
 
objcmd.CommandText = query
 
objrdr = objcmd.ExecuteReader
 
cbo.Items.Clear()
 
IF objrdr.HasRows Then
 
Do While objrdr.READ
 
cbo.Items.ADD(objrdr.GetValue(0))
 
Loop
 
End IF
 
objrdr.Close()
 
Next
 
End Sub
 
Private Sub Button5_Click(ByVal sender AS System.Object, ByVal e AS System.EventArgs) Handles Button5.Click
 
End
 
End Sub
 
Private Sub Button3_Click(ByVal sender AS System.Object, ByVal e AS System.EventArgs) Handles Button3.Click
 
Dim con AS OleDbConnection = New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=C:\Documents and Settings\bashkark\Desktop\Final Database.mdb")
 
Dim cmd AS New OleDbCommand
 
cmd = New OleDbCommand("Select * from table2 ", con)
 
con.Open()
 
Dim da AS OleDbDataAdapter = New OleDbDataAdapter(cmd)
 
Try
 
Dim ds AS DataSet = New DataSet()
 
ds.TABLES.ADD("table2")
 
da.Fill(ds, "table2")
 
DataGridView1.DataSource = ds.TABLES("table2").DefaultView
 
datagridview1.
 
Finally
 
con.Close()
 
cmd = Nothing
 
da.Dispose()
 
con.Dispose()
 
End Try
 
End Sub
 
End Class