Option Explicit
  Public conConexion As ADODB.Connection
  Public strCadenaConexion As String

'//CONECTAR AL SERVIDOR DE DATOS
Public Sub psConectar()
  On Error GoTo Error_Handler:
    Set conConexion = New ADODB.Connection
        conConexion.ConnectionString = modMySQL.strCadenaConexion
        conConexion.Open
  Exit Sub
Error_Handler:
    Set conConexion = Nothing
    MsgBox Err.Description & " (" & Err.Number & ").", vbCritical
End Sub

Private Sub psGuardar_Usuario()
  Dim rs As ADODB.Recordset
    On Error GoTo Error_Handler
        Set rs = New ADODB.Recordset
                    Call modMySQL.psConectar
        With rs
            .ActiveConnection = modMySQL.conConexion
            .CursorLocation = adUseClient
            .CursorType = adOpenDynamic
            .LockType = adLockOptimistic
            
                .Open "INSERT INTO tabla(campos) VALUES(valores)"
            If .State Then .Close
            If modMySQL.conConexion.State Then modMySQL.conConexion.Close
        End With
        Set rs = Nothing
    Exit Sub
Error_Handler:
    MsgBox Err.Description & " (" & Err.Number & ").", vbCritical
End Sub

            modMySQL.strCadenaConexion = "driver={MySQL ODBC 3.51 Driver};server=" & Trim(txtServidor) & ";" _
            & "uid=usuario_mysql;pwd=password_mysql;database=base_de_datos;connection="

textbox.Text = ddl_usuario_ingeniero.Text

Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
        '//abrir la conexion a mysql (conConexion)
    With rs
        '//establecer la conexion
        .ActiveConnection = conConexion
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open "INSERT INTO tabla(campos) VALUES(valores)"
        If .State Then .Close
        '//cerrar la conexion
        If conConexion.State Then conConexion.Close
    End With
    Set rs = Nothing

        '//abrir la conexion a mysql (conConexion)

    Public Function fntEncriptar(ByVal strCadena As String) As String
        Dim md5Hasher As MD5 = MD5.Create()

        Dim data As Byte() = md5Hasher.ComputeHash(Encoding.Default.GetBytes(strCadena))
        Dim sBuilder As New StringBuilder()

        Dim i As Integer
        For i = 0 To data.Length - 1
            sBuilder.Append(data(i).ToString("x2"))
        Next i

        Return sBuilder.ToString()
    End Function

Imports System.Text
Imports System.Security.Cryptography

Me.txtTextoEncriptado.Text = Me.fntEncriptar(Me.txtTextoPlano.Text)