Connection problemen met MySQL op een 64 bits machine

Private Sub Connection()
    Dim Strsql As String
    Dim strDir As String
    Dim i As Long
        If Connopen = False Then
            On Error GoTo err2
            Set CNNAPP = New ADODB.Connection
            CNNAPP.Open "DRIVER={MySQL ODBC 5.1 Driver}" & ";SERVER=" & MySQL_server_name & ";DATABASE=" & MySQL_database_nameA & ";UID=" & MySQL_User_IDA & ";PWD=" & MySQL_PasswordA & ";OPTION=16427" ' Option 16427 = Convert LongLong to Int: This just helps makes sure that large numeric results get properly interpreted
            If (CNNAPP.State = adStateClosed) Then
                'lbstate.Caption = "  Gesloten VM01REP..."
                MsgBox "Let op: er is geen verbinding met de datebase, ga terug en haal het receptuur opnieuw op!" & vbNewLine & vbNewLine & "Foutmelding 1 - geen verbinding <cnn>", vbCritical, "Receptuur informatie"
            ElseIf (CNNAPP.State = adStateOpen) Then
                'lbstate.Caption = "  Geopend VM01REP..."
            End If
            On Error GoTo 0
            On Error GoTo err1

            Set CNNINK = New ADODB.Connection
            CNNINK.Open "DRIVER={MySQL ODBC 5.1 Driver}" & ";SERVER=" & MySQL_server_name & ";DATABASE=" & MySQL_database_nameI & ";UID=" & MySQL_User_IDI & ";PWD=" & MySQL_PasswordI & ";OPTION=16427" ' Option 16427 = Convert LongLong to Int: This just helps makes sure that large numeric results get properly interpreted
            If (CNNINK.State = adStateClosed) Then
                'lbstatus.Caption = "  Gesloten INK DB..."
                MsgBox "Let op: er is geen verbinding met de datebase, ga terug en haal het receptuur opnieuw op!" & vbNewLine & vbNewLine & "Foutmelding 1 - geen verbinding <cnn>", vbCritical, "Receptuur informatie"
            ElseIf (CNNINK.State = adStateOpen) Then
                'lbstatus.Caption = "  Geopend INK DB..."
            End If
            Connopen = True
            Exit Sub
err1:
        'lbstatus.Caption = "  Gesloten INK DB..."
        MsgBox "Let op: er is geen verbinding met de datebase, ga terug en haal het receptuur opnieuw op!" & vbNewLine & vbNewLine & "Foutmelding 1 - geen verbinding <cnn>", vbCritical, "Receptuur informatie"
err2:
        'lbstate.Caption = "  Gesloten VM01REP..."
        MsgBox "Let op: er is geen verbinding met de datebase, ga terug en haal het receptuur opnieuw op!" & vbNewLine & vbNewLine & "Foutmelding 1 - geen verbinding <cnn>", vbCritical, "Receptuur informatie"

        End If
  
End Sub

Private Sub Connection()
   c00="DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & MySQL_server_name & ";DATABASE=" & MySQL_database_nameA & ";UID=#;PWD=" & MySQL_PasswordA & ";OPTION=16427"
   c01="Let op: er is geen verbinding met de datebase, ga terug en haal de receptuur opnieuw op!" & string(2,vblf) & "Foutmelding 1 - geen verbinding <cnn>", 
  
   with  New ADODB.Connection
      .Open replace(c00,"#",MySQL_User_IDA)
      If .State = adStateOpen  
        Then c01=""
      else
        .Open replace(c00,"#",MySQL_User_IDI)
         If .State = adStateOpen Then c01=""
      end if
   end with
   
  if c01<>"" then msgbox c01
End Sub