'Connecting to database
DB.setDatabase("mysql_Server","DB_Name","user","Passwort")
'Query the data
Liste = DB.Query("select DATE_TIME, CPU_STATUS from TBL_MESSWERT;")
If Liste.IsInitialized=False Then
Msgbox("No data access!","Warnung")
Else
'Here the data are evaluated
End If