Dim objDA1 As OleDb.OleDbDataAdapter
Dim objDA2 As OleDb.OleDbDataAdapter
Dim objDS As DataSet
Dim objDV1 As DataView
Dim objDV2 As DataView
Dim objCB1 As OleDb.OleDbCommandBuilder
Dim objCB2 As OleDb.OleDbCommandBuilder
 
objDV1 = Nothing
objDV2 = Nothing
objDS = 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(objDS, "tbl_1")
objDV1 = New DataView(objDS.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(objDA2)
objDA2.Fill(objDS, "tbl_2")
objDV2 = New DataView(objDS.Tables("tbl_2"))