Kod:
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
DataGridView1.DataBindings.Clear()
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='tablolar.mdb'") 'Veritabanımızın yerini belirtiyoruz.
Dim sql As String = "select * from islem where firma_id=" & Me.ComboBox1.SelectedValue & ""
Dim veriler As New DataTable("islem")
Dim adapter As New OleDbDataAdapter(sql, baglanti)
adapter.Fill(veriler) 'buradaki veriler oluşturduğumuz sanal tablo.
DataGridView1.DataSource = veriler 'veri tabanından gelen kayıtları DataGridView'e aktarıyoruz .
baglanti.Close()
End Sub