Public Class Form1
    Inherits System.Windows.Form
 
'// Designerregion
    '// [..]
    Dim ds As Data.DataSet
 
    Private Sub fillDs()
        Dim cns As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=X:\tmp\db.mdb;Persist Security Info=False"
        Dim cn As New Data.OleDb.OleDbConnection(cns)
        Dim sqlOrders As String = "SELECT * FROM orders ORDER BY id ASC"
        Dim sqlproduct As String = "SELECT * FROM product ORDER BY id ASC"
        Dim sqlUsers As String = "SELECT *, last_name + ', ' + first_name AS" & _
          "full_name " + _
                                 "FROM users ORDER BY id ASC"
        Dim da As Data.OleDb.OleDbDataAdapter
        ds = New Data.DataSet
 
        da = New Data.OleDb.OleDbDataAdapter(sqlUsers, cn)
        da.Fill(ds, "users")
 
        da = New Data.OleDb.OleDbDataAdapter(sqlproduct, cn)
        da.Fill(ds, "product")
 
        da = New Data.OleDb.OleDbDataAdapter(sqlOrders, cn)
        da.Fill(ds, "orders")
    End Sub
 
    Private Sub setDataSource()
        Me.DataGrid1.DataSource = ds.Tables("orders")
    End Sub
 
    Private Sub setBindings()
        With Me.ComboBox1 '// Users
            .DataSource = ds.Tables("users")
            .DisplayMember = "full_name"
            .ValueMember = "id"
            .DataBindings.Add("SelectedValue", ds.Tables("orders"), "user_id")
        End With
 
        With Me.ComboBox2 '// Orders
            .DataSource = ds.Tables("product")
            .DisplayMember = "product_name"
            .ValueMember = "id"
            .DataBindings.Add("SelectedValue", ds.Tables("orders"), _
              "product_id")
        End With
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        fillDs()
        setBindings()
        setDataSource()
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        '// pos <
        Me.BindingContext.Item(Me.DataGrid1.DataSource).Position -= 1
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        '// pos >
        Me.BindingContext.Item(Me.DataGrid1.DataSource).Position += 1
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        '// pos |<
        Me.BindingContext.Item(Me.DataGrid1.DataSource).Position = 0
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button5.Click
        '// pos >|
        Me.BindingContext.Item(Me.DataGrid1.DataSource).Position = _
          Me.BindingContext.Item(Me.DataGrid1.DataSource).Count
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        '// set filter 
        Me.ds.Tables("orders").DefaultView.RowFilter = "user_id = 2"
    End Sub
 
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button6.Click
        '// reset filter 
        Me.ds.Tables("orders").DefaultView.RowFilter = ""
    End Sub
End Class
 
'---------------------------
'table: "product"
'---------------------------
'id	| product_name
'---------------------------
'10	| product10
'11	| product11
'12	| product12
'13	| product13
'14	| product14
'15	| product15
'---------------------------
 
'---------------------------
'table: "orders"
'---------------------------
'id	| user_id | product_id
'---------------------------
'1 | 1 | 10
'2 | 1 | 11
'3 | 1 | 12
'4 | 2 | 13
'5 | 2 | 14
'6 | 3 | 10
'7 | 3 | 12
'---------------------------
 
'---------------------------
'table: "users"
'---------------------------
'id | last_name | first_name
'---------------------------
'1 | meier  | klaus
'2 | lustig | peter
'3 | müller | anton
'---------------------------