programando en bisual basic 2008 conexion a microsoft acces 2007

este codigo ba en el boton de busqueda para realizar la busqueda aca les dejo el ejemplo si fucion y se a implementado en el proyecto sytema para el control y manejo de inventario
------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub btnBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscar.Click

If (TxtClaveProducto.TextLength <= 0 And txtNombreProducto.TextLength > 0) Then
Dim con As DB.CConnectSQL = New DB.CConnectSQL
con.fnOpenConnection(CContext.vDB)
Dim query As String = "Select * from productos where nombre_producto='" & txtNombreProducto.Text & "'"
Dim regs As DataTable
regs = con.fnGetData(query, CContext.vDB)
con.fnCloseConnection()
datagridproducto.DataSource = regs
Else
If (TxtClaveProducto.TextLength > 0 And txtNombreProducto.TextLength <= 0) Then
Dim con As New DB.CConnectSQL
con.fnOpenConnection(CContext.vDB)
Dim query As String = "Select * from productos where cve_producto='" & TxtClaveProducto.Text & "'"
Dim regs As DataTable
regs = con.fnGetData(query, CContext.vDB)
con.fnCloseConnection()
datagridproducto.DataSource = regs
Else
Try
Dim con As DB.CConnectSQL = New DB.CConnectSQL
con.fnOpenConnection(CContext.vDB)
Dim query As String = "Select * from productos"
Dim regs As DataTable
regs = con.fnGetData(query, CContext.vDB)
con.fnCloseConnection()
Me.datagridproducto.DataSource = regs
Catch ex As Exception
MsgBox("Ocurrio un error al leer los datos de la base de datos")
End Try

End If

End If
End Sub