http://kkcdn-static.kaskus.co.id/images/2012/11/21/1530371_20121121015635.jpg

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'DbAMDataSet1.des_cobavibra' table. You can move, or remove it, as needed.
Me.Des_cobavibraTableAdapter.Fill(Me.DbAMDataSet1.des_cobavibra)
Me.KandidatTableAdapter.Fill(Me.DbAMDataSet1.kandidat)

con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=D:\\ES 5S TPM\dbAM.accdb"
con.Open()
MsgBox("connection has made!", MsgBoxStyle.OkOnly, "Koneksi")


Me.ComboBox1.Items.Add("normal")
Me.ComboBox1.Items.Add("tidak_normal")

Me.ComboBox2.Items.Add("rata")
Me.ComboBox2.Items.Add("tidak_rata")
Me.ComboBox2.Items.Add("-")

Me.ComboBox3.Items.Add("ya")
Me.ComboBox3.Items.Add("tidak")
Me.ComboBox3.Items.Add("-")

con.Close()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

con.Open()

Dim cmdinsert As New OleDb.OleDbCommand

Dim daDes As New OleDb.OleDbDataAdapter
daDes = New OleDb.OleDbDataAdapter("SELECT * FROM des_cobavibra", con)
Dim dtDes As New DataSet
daDes.Fill(dtDes)

Dim daKan As New OleDb.OleDbDataAdapter
daKan = New OleDb.OleDbDataAdapter("SELECT * FROM kandidat", con)
Dim dtKan As New DataSet
daKan.Fill(dtKan)

Dim row As Data.DataRow

cmdinsert.CommandText = "INSERT INTO kandidat (vibrasi1, permukaan1, kotoran1) VALUES ('" & ComboBox1.SelectedItem & "', '" & ComboBox2.SelectedItem & "', '" & ComboBox3.SelectedItem & "')"
cmdinsert.CommandType = CommandType.Text
cmdinsert.Connection = con
cmdinsert.ExecuteNonQuery()

For Each row In dtKan.Tables(0).Rows
Do Until dtKan.Tables(0).Rows.Count - 1
If (dtKan.Tables("vibrasi1").ToString = dtDes.Tables("vibrasi").ToString) And (dtKan.Tables("permukaan1").ToString = dtDes.Tables("permukaan").ToString) And (dtKan.Tables("kotoran1").ToString = dtDes.Tables("kotoran").ToString) Then Me.fire1()
Loop
Next
dtKan.Clear()
con.Close()



End Sub

Private Sub fire1()
Dim a As New OleDb.OleDbCommand
con.Open()

a.CommandText = "Insert into des_cobavibra (Fire) values (1)"
a.CommandType = CommandType.Text
a.Connection = con
a.ExecuteNonQuery()

con.Close()
End Sub


End Class