Problemas con pdf en visual basic 2010
tengo una base de datos en access 2007 los nombres de los archivos pdfs:
nombrefile campo 1 campo2
donde el programa debe visualizar a cada uno de ellos y llenar los datos en los campo1 y campo2 el problema esta que cuando llamo la imagen pdf y me muestra ,pero me sale error cuando le presiono la tecla tabs para desplazarme
este es el error que sale
"Intento de leer o escribir en la memoria protegida. A menudo, esto indica que hay otra memoria dañada."
el código es la siguiente:
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
'Dim strConexión As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Ejemplos1.accdb"
Dim strConexión As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Ejemplos1.accdb"
Dim strComando As String = "Select * from categorías"
Dim DA As OleDbDataAdapter
Dim DS As New DataSet()
Dim CB As OleDbCommandBuilder
Dim Intentar As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
DA = New OleDbDataAdapter(strComando, strConexión)
DA.Fill(DS, "categorías")
CB = New OleDbCommandBuilder(DA)
Txtid.DataBindings.Add(New Binding("Text", DS, "categorías.Id"))
Txtnombrefile.DataBindings.Add(New Binding("Text", DS, "categorías.Nombrefile"))
Txtdescripcion1.DataBindings.Add(New Binding("Text", DS, "categorías.descripcion1"))
Txtdescripcion2.DataBindings.Add(New Binding("Text", DS, "categorías.Descripcion2"))
Catch ex As Exception
MsgBox(ex.Message)
End Try
Me.AxAcroPDF1.LoadFile("G:\max\Ejemplos\Ejemplos\bin\Debug\" + Txtnombrefile.Text)
Me.Txtdescripcion1.Focus()
End Sub
Private Sub Txtdescripcion1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Txtdescripcion1.KeyDown
If e.KeyCode = Keys.Enter Then
Me.Txtdescripcion2.Focus()
End If
End Sub
Private Sub TxtDescripcion2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Txtdescripcion2.KeyDown
If e.KeyCode = Keys.Enter Then
Me.Btngrabar.Focus()
End If
End Sub
#Región "Botones"
Private Sub Btngrabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btngrabar.Click
BindingContext(DS, "categorías").EndCurrentEdit()
DA.Update(DS, "categorías")
DS.Tables("categorías").AcceptChanges()
Me.BindingContext(DS, "categorías").Position += 1
Me.AxAcroPDF1.LoadFile("G:\max\Ejemplos\Ejemplos\bin\Debug\" + Txtnombrefile.Text)
Me.Txtdescripcion1.Focus()
End Sub
Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsalir.Click
End
End Sub
#End Región
#Región "Botones de navegación"
Private Sub btnAnterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnanterior.Click
Me.BindingContext(DS, "categorías").Position -= 1
Me.AxAcroPDF1.LoadFile("G:\max\Ejemplos\Ejemplos\bin\Debug\" + Txtnombrefile.Text)
Me.Txtdescripcion1.Focus()
End Sub
Private Sub btnSiguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsiguiente.Click
Me.BindingContext(DS, "categorías").Position += 1
Me.AxAcroPDF1.LoadFile("G:\max\Ejemplos\Ejemplos\bin\Debug\" + Txtnombrefile.Text)
Me.Txtdescripcion1.Focus()
End Sub
#End Región
End Class