codice:
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