dbCursor = dbSQL.ExecQuery("SELECT * FROM clienti")
For i = 0 To dbCursor.RowCount -1
DoEvents
dbCursor.Position = i
If dbCursor.GetString("Tipo")="RICHIESTA CORRETTIVA" Then
list1.AddSingleLine(dbCursor.GetString("Tipo"))
list1.AddTwoLines(dbCursor.GetString("Nome"),dbCursor.GetString("Via"))
list1.AddTwoLinesAndBitmap(dbCursor.GetString("Equipment"),dbCursor.GetString("Problema"),Bitmap2)
Else
list1.AddSingleLine(dbCursor.GetString("Tipo"))
list1.AddTwoLines(dbCursor.GetString("Nome"),dbCursor.GetString("Via"))
list1.AddTwoLinesAndBitmap(dbCursor.GetString("Equipment"),dbCursor.GetString("Problema"),Bitmap1)
End If
Next
dbCursor.Close