Option Explicit
Public conn As ADODB.Connection
Public rs As ADODB.Recordset
Public CRITERIO As String
Public resp As String
Public edocnn As String
Public Sub conectar()
On Error GoTo errorcnn
Set conn = New ADODB.Connection
With conn
.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=MIO;Database=mibase;USER=admin;PWD=0987"
End With
edocnn = 1
errorcnn:
MsgBox Err.Description, vbInformation, "Error Numero" & Err.Number
Exit Sub
End Sub
Public Sub RS_ABRIR()
If rs.State = 1 Then rs.Close
rs.OPEN CRITERIO, conn, adOpenKeyset, adLockPessimistic
End Sub