System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor Dim Conn As ADODB.Connection = New ADODB.Connection Conn.CursorLocation = CursorLocationEnum.adUseServer Conn.ConnectionString = TypeConn.ConnectionString Conn.Open() Dim Rs As ADODB.Recordset = New ADODB.Recordset Dim ContatoreRs As ADODB.Recordset = New ADODB.Recordset ContatoreRs.Open("Select * from Contatori where Gestione = " & AnnoGestione, Conn, CursorTypeEnum.adOpenStatic, LockTypeEnum.adLockOptimistic) |