Dim objDA1 As OleDb.OleDbDataAdapter
Dim objDS1 As DataSet
Dim objDV1 As DataView
Dim objDA2 As OleDb.OleDbDataAdapter
Dim objDS2 As DataSet
Dim objDV2 As DataView
Dim objCB1 As OleDb.OleDbCommandBuilder
Dim objCB2 As OleDb.OleDbCommandBuilder
 
objDV1 = Nothing
objDV2 = Nothing
objDS1 = New DataSet
objDS2 = New DataSet
 
objConnection.Open()
 
objDA1 = New OleDb.OleDbDataAdapter( _
    "SELECT * FROM tbl_1 WHERE Name <> ''", objConnection)
objDA1.SelectCommand = New OleDb.OleDbCommand( _
    "SELECT * FROM tbl_1", objConnection)
objCB1 = New OleDb.OleDbCommandBuilder(objDA1)
objDA1.Fill(objDS1, "tbl_1")
objDV1 = New DataView(objDS1.Tables("tbl_1"))
objDV1.Sort = "Name"
 
objDA2 = New OleDb.OleDbDataAdapter( _
    "SELECT * FROM tbl_2", objConnection)
objDA2.SelectCommand = New OleDb.OleDbCommand( _
    "SELECT * FROM tbl_2", objConnection)
objCB2 = New OleDb.OleDbCommandBuilder(objDA1)
objDA2.Fill(objDS2, "tbl_2")
objDV2 = New DataView(objDS2.Tables("tbl_2"))