Case "select"
Dim result As DBResult = reqManager.HandleJob(job)
For Each records() As Object In result.Rows
Dim a8 As String
a8 = records(result.Columns.get("fecha"))
DateTime.DateFormat = "dd-MM-yyyy"
Label13.Text = DateTime.Date(a8)
clv1.Add(p,p.Height,"")
Next