Visual Basic.NET - Dónde control de errores

' Algunos componentes tienen uno  DataSource, y aquellos que solo pueden presentar un campo de registro tienen

' uno DisplayMember. Este es el caso de un ListBox, entonce :

' LaListBox.DataSource = MisExistencias.Tables("TLosProductos") ' es ejemplo

' LaListBox.DisplayMember = "Producto" ' es ejemplo

DGVExistencias.DataSource = MisExistencias.Tables("TLosProductos")   ' Algunos componentes, como DataGridView, tienen DataSource

DGVExistencias.Columns("Identificador").ReadOnly = True              ' No modificación manual del Identificador

' Algunos componentes no tienen DataSource pero tienen une colección de Bindings en los que

' agregar el nombre de la propiedad afectada, el DataSet quien produce los datos, y el campo a afectar a la propiedad

' Ejempl0 : TProducto.DataBindings.Add("Text", MisExistencias.Tables("TLosProductos"), "Producto")

' Enlacamos el campo "Producto" de los registros de "TLosProductos" a la propiedad "Text" de la TextBox "TProducto"

TIdentificador.DataBindings.Add("Text", MisExistencias.Tables("TLosProductos"), "Identificador")  ' Algunos componentes no tienen DataSource

TIdentificador.ReadOnly = True                                 ' No modificación manual del Identificador

TProducto.DataBindings.Add("Text", MisExistencias.Tables("TLosProductos"), "Producto")

TTipo.DataBindings.Add("Text", MisExistencias.Tables("TLosProductos"), "Tipo")

TReferencia.DataBindings.Add("Text", MisExistencias.Tables("TLosProductos"), "Referencia")

'... ... ...

' El bloque de gestión de lectura. Un solo procedimiente evento responde a 4 fuentes de Click : BPrimero, BAnterior, BSiguiente y BUltimo

Private Sub LecturaCircular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BUltimo.Click, BAnterior.Click, BSiguiente.Click, BPrimero.Click

    ' No es necesario intentar un movimiento si el DataSet no contiene ninguna tabla.

    If MisExistencias.Tables.Count > 0 And LecturaIterativaPermitida Then

        ' El BindingContext pertenece a un contenedor, el formulario en este caso.

        With Me.BindingContext(MisExistencias.Tables("TLosProductos"))

            ' Modificación de la propiedad Position según el botón seleccionado.

            Select Case sender.Name

                Case "BPrimero"

                    .Position = 0

                Case "BAnterior"

                    If .Position = 0 Then

                        .Position = .Count - 1              ' Lectura circular (como un reloj pero al revés)

                    Else

                        .Position -= 1

                    End If

                Case "BSiguiente"

                    If .Position = .Count - 1 Then

                        .Position = 0                       ' Lectura circular (como un reloj)

                    Else

                        .Position += 1

                    End If

                Case "BUltimo"

                    .Position = .Count - 1

            End Select

        End With

    End If

End Sub

Try

    Using cnx As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dSn)

        cnx.Open()

        sSql = "SELECT * FROM VENTAS WHERE FOLIO = (SELECT MAX(FOLIO) FROM VENTAS)"

        Dim cmd As New OleDbCommand(sSql, cnx)

        cmd.CommandType = CommandType.Text

        'cmd.Parameters.AddWithValue("FOLIO", txtRow.Text)

        Dim rstVENTAS As OleDbDataReader = cmd.ExecuteReader()

        If rstVENTAS.Read = True Then

            intFolio = CStr(rstVENTAS(0)) + 1

        Else

            intFolio = 1

        End If

        cnx.Close()

        rstVENTAS.Close()

    End Using

Catch ex As Exception

    MessageBox.Show("Error : " + ex.Message + "", "¡Ocurrio el siguiente Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try