Public BD As ADODB.Connection
Public RecSQL As ADODB.Recordset
Private Sub connect()
Dim IPMysql  As String
Dim User As String
Dim Password As String

Set BD = New ADODB.Connection
BD.ConnectionString = "Driver={Mysql ODBC 3.51 Driver};" & _
IPMysql = "127.0.0.1" 'IP Del Mysql '
User = "root" ' Usuario de la Base de Datos'
Password = "root" 'Password de la Base de Datos'
BD.Open

End Sub


Private Sub ButtonTransparent1_Click(Index As Integer)

Set RecSQL = New ADODB.Recordset

RecSQL.Open "INSERT INTO Registro (Account_id, Password, Nombre,Email, Birth_Date) VALUES (" & Val(Text1) & ",'" & Text2 & ", " & Text3 & ", " & Text4 & ", " & Text5 & ", " & Text6 & ", " & Text7 & ", " & Text8 & "')", BD, adOpenStatic, adLockOptimistic ----> Esta Linea Sale  Resaltada

Set RecSQL = Nothing

Form2.Hide
End Sub

Public BD As ADODB.Connection
Public RecSQL As ADODB.Recordset
Private Sub connect()
Dim IPMysql  As String
Dim SelectBD As String
Dim User As String
Dim Password As String

Set BD = New ADODB.Connection
BD.ConnectionString = "Driver={Mysql ODBC 3.51 Driver};" & _
IPMysql = "127.0.0.1" 'IP Del Mysql '
SelectBD = "ae_server_ls" 'Selecion de la  Base de Datos'
User = "root" ' Usuario de la Base de Datos'
Password = "synopsis" 'Password de la Base de Datos'
BD.Open

End Sub
Private Sub ButtonTransparent1_Click(Index As Integer)
Dim rs As ADODB.Recordset
   Set rs = New ADODB.Recordset
        '//abrir la conexion a mysql (conConexion)
        BD.ConnectionString = "Driver={Mysql ODBC 3.51 Driver};" & _
        IPMysql = "127.0.0.1" 'IP Del Mysql '
        SelectBD = "ae_server_ls" 'Selecion de la  Base de Datos'
        User = "root" ' Usuario de la Base de Datos'
        Password = "synopsis" 'Password de la Base de Datos'
        BD.Open
    With rs
        '//establecer la conexion
        .ActiveConnection = conConexion
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open "INSERT INTO Registro(campos) VALUES(id_personal,acc_id,name,email,birth)"
        If .State Then .Close
        '//cerrar la conexion
        If conConexion.State Then conConexion.Close
    End With
    Set rs = Nothing
End Sub

Private Sub ButtonTransparent2_Click()
On Error GoTo Ver
Set RecBD = New ADODB.Recordset
RecBD.Open "SELECT * from account_data,name,id, BD, adOpenStatic, adLockOptimistic"

While Not RecBD.EOF
  MsgBox "Ya Existe Ese  ID"
Wend
End Sub

Private Sub ButtonTransparent3_Click()
Form2.Hide
End Sub