Using conn = New OleDbConnection(connstring)
    Try
        Dim Sql As String = "SELECT * FROM Products WHERE [Product Name] LIKE '" & txtSearchProduct.Text & "*'"

        Dim da As New OleDbDataAdapter(Sql, conn)
        Dim ds As New DataSet
        da.Fill(ds)
        DataGridView2.DataSource = ds.Tables(0)

    Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.OkOnly Or MsgBoxStyle.Exclamation, "Error")
    End Try
End Using