Clase para conexion BD

[PosProdukcion]

Te dejo mi versión....

Código:

Class bdConex
    Public rsQuery  'Es un array doble que contiene los datos leidos de BD, es
                    'una copia del recordset, pero en formato array
    Public totalRegistros

    Public Sub Query(cadenaSQL)
        Dim rs

        'Crea la conexion
        Set conex = server.createobject ("ADODB.Connection")
        conex.Open Application("cadenaConexion")

        Set rs = server.createobject("ADODB.RecordSet")
        rs.CursorType = 3
        'LockType = Read-Only
        rs.LockType = 1
        'CursorLocation = adUseClient
        rs.CursorLocation = 3
        'Y abrimos el Recordset
        'objRecordset.Open source,actconn,cursortyp,locktyp,opt
        rs.Open cadenaSQL, conex, 3, 1, 1

        'Obtengo los datos con GetRows
        If Not(rs.EOF) and Not(rs.BOF) Then
            rsQuery = rs.GetRows
            totalRegistros = rs.RecordCount
        Else
            totalRegistros = 0
        End If
        
        'Cierro y limpio objetos ya
        rs.Close
        conex.Close
        set rs = nothing
        set conex = nothing
    End Sub

    Public Sub Ejecuta(strSQL)
        Dim i
        Dim rsInsert

        'Crea la conexion
        Set conex = server.createobject ("ADODB.Connection")
        conex.Open Application("cadenaConexion")
        Set rsInsert = server.createobject("ADODB.RecordSet")
        
        set rsInsert = conex.execute(strSQL)

        conex.Close
        set rsInsert = nothing
        set conex = nothing

    End Sub
   ...........