Dim Query As String
Dim ResultSet1 As ResultSet
testo= currentmonth
If testo.Length=1 Then testo="0" & testo
Query = "SELECT * FROM prenota WHERE SubStr(datapren,3,2) = ?"
ResultSet1 = SQL1.ExecQuery2(Query, Array As String (testo))
If ResultSet1.RowCount> 0 Then
nr=True
End If
Do While ResultSet1.NextRow