Gracias amigo, así quedo al final.
Código:
Public Class Factura
Private conexion As OleDbConnection
Private dv As New DataView
Private Sub cargado()
conexion = New OleDbConnection
conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Programacion III\\Cliente.accdb; Persist Security Info = False"
Dim cadenaSql As String = "Select compra.ci, compra.fecha, Productos.producto,Productos.precio, compra.cantidad, compra.total from Productos INNER JOIN compra ON Productos.id = compra.cod_producto"
Dim da As New OleDbDataAdapter(cadenaSql, conexion)
Dim ds As New DataSet
da.Fill(ds)
dv.Table = ds.Tables(0)
DataGridView1.DataSource = dv
End Sub
End Class
El DataView lo agregue afuera para hacer una búsqueda con filtro, Saludos.