datagrid

[pietro09]

        Dim Connessione As OleDbConnection
        Dim Comand As OleDbCommand
        Dim DataReader As OleDbDataReader

        Try
            Connessione = New OleDbConnection(ConnectionString())
            Connessione.Open()

            Comand = New OleDbCommand(Query(), Connessione)

            DataReader = Comand.ExecuteReader()

            If DataReader.HasRows Then
                Me.DataGrid1.DataSource = DataReader
                Me.DataGrid1.DataBind()
            Else
                Me.Label1.Text = "Non ci sono dati"
            End If

        Catch er As Exception
            Me.Label1.Text = er.Message

            Try
                DataReader.Close()
            Catch ex As Exception

            End Try
        Finally
            Connessione.Close()

        End Try