Analisis de Sentencia en Conexion

[jhodmar]

Buen dia...

quisiera que me ayudaran a entender en Forma DETALLADA la siguiente sentencia...
Soy un poco novato o mas bien muy novato y el código aun me come...

Código:

 

Try

            Dim sentencia As String
            Dim rsverificar As ADODB.Recordset
            rsverificar = New ADODB.Recordset()

            sentencia = "Select " & NomCampo
            sentencia = sentencia & " FROM " & Tblreturn
            If Not filtro = Nothing Then
                sentencia = sentencia & " Where " & filtro
            End If

            If conexionConsulta = "SQL" Then
                rsverificar.Open(sentencia, cnSQL, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockReadOnly, 1)
                conexionConsulta = "Access"
            Else
                rsverificar.Open(sentencia, cnAccess, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockReadOnly, 1)
            End If

            If rsverificar.EOF <> True Then
                RetornaCampo = rsverificar.Fields(0).Value
                If IsDBNull(rsverificar.Fields(0).Value) = True Then
                    RetornaCampo = 0
                End If
            Else
                RetornaCampo = 0
            End If

            rsverificar.Close()

        Catch ex As Exception
            MsgBox("Ocurrio un error interno en la aplicación " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, "Atención")
            Return 0
        End Try

Bueno espero no sea mucha molestia..Feliz dia!!