DSN problem

Jeg prøver at få forbindelse til en mysql database. Jeg bruger det eksempel som ligger på www.mysql.com. Når jeg kører denne her kode får jeg en fejl i DSN=test.. hvorfor? og hvad skal jeg gøre for at få det her til at virke?

Dim myConn As New ADODB.Connection
Dim myrs As New Recordset
Dim mySQL As String
Dim myrows As Long

myConn.Open "DSN=test"
mySQL = "SELECT * from user"
myrs.Source = mySQL
Set myrs.ActiveConnection = myConn
myrs.CursorLocation = adUseClient
myrs.Open
myrows = myrs.RecordCount

myrs.Close
myConn.Close