Fejl i MySQL Connection?

Hejsa...
Jeg vil gerne kunne oprette en forbindelse til min private MySQL server.. Jeg bruger følgende kode som jeg har fundet på eksperten.dk:

Dim strSQL As String
Dim strConn As String
Dim objRs  As Object

  Me.AutoRedraw = True

  Set objRs = CreateObject("ADODB.RecordSet")

  strConn = "DRIVER={MySQL ODBC 3.51 Driver};" _
            & "SERVER=" & "localhost" & ";" _
            & "DATABASE=" & "VB_test" & ";" _
            & "UID=" & "XXXX" & ";" _
            & "PWD=" & "XXXX" & ";"

  strSQL = "SELECT navn FROM usr"

  With objRs
      .Open strSQL, strConn, 3

      If Not (.BOF Or .EOF) Then
   
        Do While Not .EOF
          List1.AddItem (objRs("navn"))
          .MoveNext
        Loop
   
      End If

      .Close
  End With

  Set objRs = Nothing

Ved ikke om der er fejl i selve koden, men når jeg prøver at oprette forbindelse kommer vb med denne fejl:
Specified driver could not be loaded due to system error 126 (MySQL ODBC 3.51 Driver)