Protected Sub CollegaGrigliaCON(ByVal sender As Object, ByVal e As EventArgs) Handles BtnCollegaGriglia.Click

        ' questo esempio andrebbe in una apposita classe che gestisce il DATA LAYER. Poi dall'applicazione
        ' dovresti richiamare una ulteriore classe (il BUSINESS LAYER) che gestisce le logiche vere e proprie.
        ' Quest'ultima a sua volta dovrebbe richiamare i metodi e le classi che hai definito nel DATA LAYER.
        ' l'esempio è per sql server

        ' ado.net connesso
        Using objConn As New SqlConnection(Config.ConnectionString)
            objConn.Open()

            Using objCmd As New SqlCommand("SELECT * FROM Utenti WHERE IDUtente <= @idPassato", objConn)

                objCmd.Parameters.Add("@idPassato", SqlDbType.Int).Value = 10
                objCmd.CommandType = CommandType.Text

                Try
                    ' metodo connesso, riempio la griglia e la collego
                    GV1.DataSource = objCmd.ExecuteReader()
                    GV1.DataBind()
                Catch ex As Exception
                    Response.Write(ex.Message)
                End Try

            End Using

            objConn.Close()

        End Using

    End Sub


    Protected Sub CollegaGrigliaDIS(ByVal sender As Object, ByVal e As EventArgs) Handles BtnCollegaGrigliaDisconnesso.Click

        ' ado.net disconnesso
        Using objConn As New SqlConnection(Config.ConnectionString)

            objConn.Open()
            Using objCmd As New SqlCommand("SELECT * FROM Utenti WHERE IDUtente <= @idPassato", objConn)

                objCmd.Parameters.Add("@idPassato", SqlDbType.Int).Value = 10
                objCmd.CommandType = CommandType.Text

                Using objDA As New SqlDataAdapter(objCmd)

                    Using dt As New DataTable()
                        ' riempio la datatable con i dati letti
                        objDA.Fill(dt)

                        ' riempio la griglia e la collego
                        Try
                            GV1.DataSource = objCmd.ExecuteReader()
                            GV1.DataBind()
                        Catch ex As Exception
                            Response.Write(ex.Message)
                        End Try

                    End Using
                End Using
            End Using

        End Using

    End Sub

    Protected Sub CollegaTextBox(ByVal sender As Object, ByVal e As EventArgs) Handles BtnCollegaTextBox.Click

        Using objConn As New SqlConnection(Config.ConnectionString)
            objConn.Open()

            Using objCmd As New SqlCommand("SELECT TOP 1 Nome FROM Utenti ORDER BY IDUtente", objConn)

                objCmd.CommandType = CommandType.Text

                Try
                    ' metodo connesso, riempio la griglia e la collego
                    TxtRisultato.Text = CType(objCmd.ExecuteScalar(), String)
                Catch ex As Exception
                    Response.Write(ex.Message)
                End Try

            End Using

            objConn.Close()

        End Using

    End Sub