tengo un error muy raro o no se si llamarlo error

[rikimm]

olle pus segun esto no lo saltas me puedes explicar donde porner el try y como hacer el catch ya que no estoy muy familiarizado con eso te dejo el codigo

Código vb:

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As String
        Dim dia As String
        Dim mes As String
        Dim ano As String
        Dim prueba As String
        Dim final As String
        dia = DateTime.Today.Day + 1
        mes = DateTime.Today.Month
        ano = DateTime.Today.Year
        final = dia + "/" + "0" + mes + "/" + ano
        x = DateTime.Today
        prueba = TextBox1.Text
 
        Dim cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\riki\Documents\Visual Studio 2008\Projects\SistemaDP\SistemaDP\bin\Debug\doggyp.mdb")
        Dim da As New OleDbDataAdapter("SELECT * FROM Entradas where Mascota='" & prueba & "'", cnn)
        Dim ds As New DataSet
 
 
        da.Fill(ds)
        MenuDP.DataGridView1.DataSource = ds.Tables(0)
       
        Me.Close()
 
    End Sub