status = CreateDSN(dsnName, dsnName, dsnDatabase, "", dsnUser, dsnServer)
If status <> 0 Then
MsgBox "Problem att addera dsn " & dsnName & ", fortsätter", vbCritical
Else
' allt ok
End If