Visual Basic - Seleccionar Tablas

Hola a todos , favor si me pueden ayudar con lo siguiente

Tengo una base de datos que tiene 2 tablas llamadas Ingreso1 (Campo = Articulo) e Ingreso2 (Campo = Articulo)

He hecho un form de busqueda de un articulo, este form tiene 2 checkbox y una datagrid

Check 1 hace referencia a Ingreso1
Check 2 hace referencia a Ingreso2

La idea es que al seleccionar el check1 en el data grid me muestre los articulos de la tabla Ingreso1. Que al seleccionar el check2 el data me muestre los articulos de la tabla Ingreso2

Esto es lo que tengo programado por el momento, asi como esta solo me seleciona en una sola tabla, ya tengo conectada con 2 adodc uno para cada tabla.

Dim base As Connection
Dim WithEvents Temp As Recordset
Dim consulta As String, cod As Integer

Private Sub DataGrid1_Click()
DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell
End Sub

Private Sub Form_Load()
Set base = New Connection
Set Temp = New Recordset
base.Open "dsn=data"
Temp.Open "Ingreso1", base, adOpenStatic, adLockReadOnly
End Sub

Private Sub Text1_Change()
Temp.Close
Set DataGrid1.DataSource = Nothing
consulta = "select Distinct Articulo from Ingreso1 where Articulo like '" & Text1 & "%' "
Temp.Open consulta, base, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = Temp

Solo necesitas un Data.
if Check1 =1 then
Data1.recordsource="select ....... "
else
data1.Recordsouce=Select ... "
endif
data1.refresh