codice:
Dim StrSql As String = "SELECT count(*) FROM Utenti"
            Using ConnAcc As New OleDbConnection(Connessione)
                Dim CommAcc As New OleDbCommand(StrSql, ConnAcc)
                Try
                    CommAcc.Connection.Open()
                    ExecSql = CommAcc.ExecuteReader();
                Catch ex As Exception
                    WriteErr(ex, StrSql)
                End Try
            End Using