Dim db As Database
            Dim cmd As DbCommand
            Dim ds As DataSet
            Dim sql As String
            Dim dv As New DataView
 
            Try
                db = Connection.Default_DB()
 
                sql = "SELECT MAX(level) as MaxLevel "
                sql &= "FROM tbl_job"
 
                cmd = db.GetSqlStringCommand(sql)
                ds = db.ExecuteDataSet(cmd)
 
                 'man müsste jetzt irgendwie msgbox(ds.tables(0).rows...