Connessione.Open()

        Dim numero_atto As Integer = 15536
        Dim variabile_data As Date = "04/04/2009"

        If Connessione.State = ConnectionState.Open Then

            'MessageBox.Show(numero_atto) ' mi serve per capire quanto vale la variabile

            Dim MioCodiceSql As String = "SELECT * FROM preg_atti WHERE numero =@numero AND data_atto =@data"
            Dim MioCommand As New OleDbCommand(MioCodiceSql, Connessione)

            MioCommand.Parameters.Add("@numero", OleDbType.Integer).Value = 15536
            MioCommand.Parameters.Add("@data", OleDbType.Date).Value = "04/04/2009"

            Dim reader As OleDbDataReader = MioCommand.ExecuteReader()
            While reader.Read()
                MsgBox(reader(0).ToString() & " - Numero: " & reader(1).ToString() & " - Data: " & reader(2).ToString())
            End While
            reader.Close()