Visualizar dos tablas diferentes en dos datagridview en un mismo formulario

buen día les explico un poco lo que quiero hacer

tengo dos tablas que no tienen relacion entre si, pero en ambas se almacena información sobre vehículos, requiero hacer una consulta en ambas tablas al mismo tiempo y lo hago de la siguiente manera

tengo un formulario con dos datagridview (datapersonas y datapersonas2) y tres textbox (textbuscar, textbo1, textbuscar2)

en  textbox1 tecleo la palabra que quiero buscar y en los otros dos textbox (buscar y buscar2) se copia de manera automática la palabra del texbox1 que estoy buscando, el texbuscar busca en una tabla y el textbuscar2 busca en otra tabla...........esa es la situación ideal...... E aquí mi problema

cuando cargo el formulario los dataGV visualizan cada uno la tabla correspondiente pero cuando tecleo la palabra a buscar en el textbox1 automáticamente el dataGV (datapersonas) me muestra la tabla del dataGV2 (dataperonas2), en ambos dataGV veo la misma tabla.

espero me haya explicado y alguien me pueda ayudar

les dejo el código del formulario

Public Class frmCONSULTAMULTIPLE

Private dt As New DataTable
Private Sub frmCONSULTAMULTIPLE_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
mostrar()
mostrar2()

End Sub

Private Sub mostrar()
Try
Dim func As New fCONSULTAVFICHA
dt = func.mostrar
'Datapersonas.Columns.Item("Eliminar").Visible = False

If dt.Rows.Count <> 0 Then
Datapersonas.DataSource = dt
Textbuscar.Enabled = True
Datapersonas.ColumnHeadersVisible = True
Sin_registro.Visible = False
Else
Datapersonas.DataSource = Nothing
Textbuscar.Enabled = False
Datapersonas.ColumnHeadersVisible = False
Sin_registro.Visible = True
End If
Catch ex As Exception
MsgBox(ex.Message)

End Try

buscar()

End Sub

Private Sub buscar()
Try

Dim ds As New DataSet
ds.Tables.Add(dt.Copy)
Dim dv As New DataView(ds.Tables(0))
Datapersonas.DataSource = dv

' dv.RowFilter = cbocampo.Text & " like '" & Textbuscar.Text & "%'"
'dv.RowFilter = String.Format(" PRIMERAPELLIDO + ' ' + SEGUNDOAPELLIDO like '%{0}%'", Textbuscar.Text)
'dv.RowFilter = String.Format(" APELLIDOS like '%{0}%'", Textbuscar.Text)

'dv.RowFilter = String.Format(" APELLIDOS + ' ' + NOMBRES like '%{0}%'", Textbuscar.Text)

dv.RowFilter = String.Format(" PLACA + MARCA + LINEA + MODELO + COLOR like '%{0}%'", Textbuscar.Text)

If dv.Count <> 0 Then
Sin_registro.Visible = False
Datapersonas.DataSource = dv

Else
Sin_registro.Visible = True
Datapersonas.DataSource = Nothing
End If

Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
Textbuscar.Text = TextBox1.Text
TextBuscar2.Text = TextBox1.Text

End Sub

Private Sub Textbuscar_TextChanged(sender As System.Object, e As System.EventArgs) Handles Textbuscar.TextChanged
buscar()
End Sub

Private Sub mostrar2()
Try
Dim func As New fCONSULTAVASE
dt = func.mostrar2
'Datapersonas.Columns.Item("Eliminar").Visible = False

If dt.Rows.Count <> 0 Then
Datapersonas2.DataSource = dt
TextBuscar2.Enabled = True
Datapersonas2.ColumnHeadersVisible = True
Sin_registro2.Visible = False
Else
Datapersonas2.DataSource = Nothing
TextBuscar2.Enabled = False
Datapersonas2.ColumnHeadersVisible = False
Sin_registro2.Visible = True
End If
Catch ex As Exception
MsgBox(ex.Message)

End Try
'btnnuevo.Visible = True
'btneditar.Visible = False

buscar2()

End Sub

Private Sub buscar2()
Try

Dim ds As New DataSet
ds.Tables.Add(dt.Copy)
Dim dv As New DataView(ds.Tables(0))
Datapersonas2.DataSource = dv

' dv.RowFilter = cbocampo.Text & " like '" & Textbuscar.Text & "%'"
'dv.RowFilter = String.Format(" PRIMERAPELLIDO + ' ' + SEGUNDOAPELLIDO like '%{0}%'", Textbuscar.Text)
'dv.RowFilter = String.Format(" APELLIDOS like '%{0}%'", Textbuscar.Text)

'dv.RowFilter = String.Format(" APELLIDOS + ' ' + NOMBRES like '%{0}%'", Textbuscar.Text)

dv.RowFilter = String.Format(" DAU + DPU + DMOTO + DCAM like '%{0}%'", TextBuscar2.Text)

If dv.Count <> 0 Then
Sin_registro2.Visible = False
Datapersonas2.DataSource = dv

Else
Sin_registro2.Visible = True
Datapersonas2.DataSource = Nothing
End If

Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Private Sub TextBuscar2_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBuscar2.TextChanged
buscar2()
End Sub

End Class