Вот вырезал из моего проекта:
MYSQLconnect("localhost",3306,"root","","agp")
Function MYSQLconnect(server$,port,user$,pass$,db$)
SqlConnection = OpenSQLStream(server$,port,user$,pass$, db$, 1)
If (SqlConnection)
;AddToLog"Succesfully connected To the SQL server!"
Notify("ОК")
Else
;AddToLog("Couldn't connect to the SQL server!")
Notify("Couldn't connect to the SQL server!")
EndIf
End Function
использовал либу которую выложил товарищ
impersonalis